




















































MEDLEMS RABAT 


20 


- den ideelle PC-løsning 

SVI-256SF SVI-640FF 

SVI-640FH X'PRESS 16 

Priser excl. moms - incl. MONOCHROM MONITOR 

SVI 

SPECTRAVIDEO 

Henvendelse: 

OVERGÅRD ANDERSEN A/S 
Øampftergevej 32 
2100 København 0 
Telefon 01 42 30 00 


INCL. DOS 2.11 
PÅ DANSK 













INDHOLDFORTEGNELSE 


Indhold : side : 


Overgård Andersen 2 
Oplysning Bc Leder. 3 
HiælD til program 4 
Chance 4-8 
Basic med Peter 9 
SDøqelses tårnet 10-11 
MSX'BIB 12-13 
Menu til PC 13-14 
Den lyserøde panter 15 
PC BIB 16-17 
XPRESS-16 Line-demotips 18 
Brev -fra Sabro 19 
Skrifter på skærmen 20 
Køb/sal g B; nye medlemmer 21-22 
SVI BIB 23 
Se den lille kattekilling 24-25 
Rettelser til morseprogram 26 
Kaos Kim Kokser 27 
Anmeldelser 28-29 
Læs læs læs 29 
Musik af Johnny 30-31 
Datacra-ft 32 


Artikler, annoncer eller programmer 
der ønskes optaget i bladet, sendes 
til Kim Andersen eller Preben Lund 
Bånd og disk sendes retur. 


LEDER 

Så gik endnu et år, vor det lyk¬ 
kedes at holde liv i vores compu¬ 
ter. Selv de gamle SVI 318/328 er 
ikke blevet glemt, specielt takket 
være vores to svenske redaktions¬ 
medlemmer, der gør et stort arbejde 
inden for denne front. MSX’en, som 
indehaves af størsteparten af med¬ 
lemmerne, har heller langt fra sat 
træskoene. Selvom det er længe si¬ 
den at den sidste MSX'er blev im¬ 
porteret til videresalg her i Dan¬ 
mark, kan vi glæde os over, at der 
hos vor sydlige nabo stadig er stor 
aktivitet. Og når to-døgnsreglen nu 
ser ud til at blive lempet, kan vi 
jo tage på endagsture til det vest¬ 
tyske, og købe grej ind. 

Vi ønsker alle en glædelig jul 
samt et godt nytår, og ser frem til 
et gensyn februar måned næste år. 


OPLYSNINGER 


Foren ingen hedder: MSX BRUGERKLUBBEN 
Medlemsskab koster 165 Kr. (årligt) 
Salgsannoncer er for medlemmer gratis 
Annoncerer : 1/2=300 kr. 1/1=500 kr. 

Medlemskab opnås ved henvendelse til 
foreningens kasserer, eller ved ind¬ 
betaling af kontingent på postgironr. 
8 2 0 6 0 8 2 

HUSK at opgive navn, adresse, postnr. 
og by. samt tlf.nr. og maskintype. 

Bladet hedder : SYNTAX 
Oplag : 800 eks. 

Udkommer : 10 gange årligt (ikke jan 
og juli). 

Tryk : Foto offset. 

Løssalgspris : 17,00 Kr. 

Udkommer næste gang : Februar- 

Formand : Kim Andersen 

Fundervej 32 
2610 Rødovre 

Tlf. nr. 02 94 26 74 

Kasserer : Preben Lund 

Tømmerstrædet 19 


2620 

Tlf. nr. 02 64 

Albertslund 

76 26 



Redakt iDnsgruppen 

består 

af formand 
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kasser og følgende : 
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Hej sile SVI venner- ! 

Jeg bringer her en -forsænket hjælp 
og beskrivelse a-f et program der var- 
i SYMTAXEN Nr. 8-88.Programmet laver 
i al sin enkelhed omslag til kassette¬ 
bånd. Der er lagt nogle printerkoder 
i programmet og ikke alle printere 
kan kere programmet som det er trykt. 

Følgende linier har med koder og tegn 
at gøre. 

linie 275 Q«=chr«<42) kan ændres 
e-fter eget valg .her skal jeg dog 
komme med et tip på min printer er 
der et tegn der ligner et kolon det 
har ASCII nr. 220 på seikosha 250 prn. 
på sv328 uden ændret karektersæt 
ligger det samme tegn på LEFT GRPH og 
firkant parentes (ved siden a-f P) 

Det laver de lodrette streger på om¬ 
slaget . 

Linie 280 : X«=chr«<16) 

Dette er næsten det samme som 
1 print tab. Det bestemmer- hvor på 
linien efterfølgende tegn bliver skr¬ 
evet . 

Linie 290 :D«=chr«<14) 

Det får printereri til at skrive eft¬ 
er- følgende karekter med dobbelt 
bredde , og linie 300 S«=chr«<15) for¬ 
den tilbage til normal skr i f tbr-edde 
igen. Det er kun til rygteskt. 

Jeg håber- at i nu kan få programmet 
til at køre på jeres forskellige 
printere det burde være mugligt. 

Ven lig hil sen 
Lars B. Olsen 



1 * 
2 ’ 
3 ’ 


90 DATAO.0.0.24.24.0.0.0 
100 DATA6.6.0.0.0.0.96.96 
110 DATA6.6.0,24.24,0.96.96 
120 DATA102.102.0.0,0,0.102.102 
130 DATA102.102.0 r 24.24j0 r 102.102 
140 DATA102.102.0.102.102.0.102.102 
150 DATAO.0.0.0.0.0.0,1 
160 DATAO.0.0.0.0.0 
170 DATA0 j 0,0 j 0 j 010 
180 DATA1.l.l.lLl.l 
190 DATA128.123.128 
. 128 

200 DATAi.0.0.0.0.0 
2T0 DATAO.255.0.0j 0 
220 DATA128.0.0.0.0.0.0.0 
230 DATA0.0.0.0.1.2.2^1 
240 DATA32.80.80.80 . 90,213.21.20 
250 DATAO.0.0.0.6.128.64.64 
260 DATAl28.64.32j 33.62.0.0.0 
270 DATA64.128.128.0^0.6.6.6 
280 DATAO.0.0.6.0.255.255.255 
290 G0T01480 


255.0 
0. 128 
1 ? 1 

128.128.128.128 

0.0 

0.0.0 


300 FORX1%=256T0983:VPOKEX1%+768.(2 
55-VPEEK(Xl%)):NEXTX1% 

310 REST0RE90:F0RX1%=1792T01951:REA 
DK:VPOKEX1%.K:NEXTX1%:RETURN 
320 RETURN 

330 A$="vl5o4t2205l0m8000" 

340 A«=A«+"14ggabggf + .18d14ggab12g J 
4f +dggabn5co4bagf+def + 12ggl4e.18f + 1 
4edef+12gl4d.18el4dco3bo4c12dl4e.18 
f + 14edef +qedgf +al2qq" 

350 PLAYA« 

360 RETURN 
370 Pl%=l:BA=0 
380 LOCATEX1%.X2% 

390 PRINTIM« 

400 L0CATEX1%.X2% 

410 PRINTCHR«(ASC(NID«(IN«.Pl%.1))+ 
96) ; 

420 T«=INKEY«:IFT«=""THEN420 

430 IFT«=CHR«(13)THEN520 

440 IFT«=CHR«(8)THEN550 

450 IFT«=CHR«(28)THEN610 

460 IFT«=CHR«(29)THEN660 

470 IFT«=CHR«(18)THEN710 

480 IFASC(T«)<320RASC(T«)>122THEM42 

0 
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490 MID*(IN*. P1 %.1)=T*:L0CATEX1%.X2 

%:PRi ntt*:X l%=xl%+l:Pl%=Pi %+1 

500 IFP1%=LE%+1THENX1%=X1%-i:EEEP:P 

1%=P1%-1 

510 G0T0400 

520 L0CATEX1%.X2% 

530 PRINTCHR*(ASC(MID*tIN*.Pl%.1))) 
• 

540 BEEP:RETURN 

550 IFP1%=1THENBEEP:G0T0420 

560 L0CATEX1%.X2% 

570 PRINTCHR*(ASC(MID*(IN*.P1%.i) ) ) 


580 IN*=LEFT*(IN*.Pl%-2)+RIGHT*(IN* 
.LE%-P1%+1)+" " 

590 P1%=P1%-1:X1%=X1%-1:LGCATEX1%.X 
2%:PRINTRIGHT*(IN*.LE%-P1%+1) 

600 G0T0400 

610 IFF'1%=LE%THENBEEP: GGT0420 
620 L0CATEX1%.X2% 

630 PRINTCHR*(ABC(MID*(IN*.Pl%.1))) 


640 P1%=P1%+1:X1%=X1%+1 
650 GGT0400 

660 IFP1%=1THENBEEP:G0TG420 
670 L0CATEX1%. X2% «. 

680 PRINTCHR* ( ASC(MID* <IN*.P1%. 1))> 

• 

1 

690 P1%=P1%-1:X1%=X1%-1 
700 G0T0400 

710 IFRIGHT*(IN*.1)< >" "THENBEEP:GO 
T0420 

720 IN*=LEFT*<IN*.Pl%-1)+" "+MID*(I 
N*.Pl%.LE%-P1%) 

730 LOCATE Xl%.X2%:PRINT MID*<IN*.P 
1%.LE%-P1%+1):GOTO 400 


740 CLS: PRINT” ,-r—■ 

_ ___ _ II » 

750 PRINT" I OMGANG: ISPILLER: 

I" ! 


760 PRINT" I-l_ 

---1 ■' ; 

770 PRINT" I MULIGHEDER 
KAST I"i 
730 PRINT" 

| II » 

790 PRINT" I 
" ;W1*5 " IMI 
800 PRINT" I 
";N2*;" IS I 
810 PRINT" I 
" ?N3*I " IX I 
820 PRINT" I 
"!W1*5" I—I 
830 PRINT" I 
";W2*5" I I 
840 PRINT" I 
"JW3* 5" IC I 
850 PRINT" I- 
" ;wi*;" I I"; 


ENERE 

a 

TOERE 

a 

TREERE 

a 

FIRERE 

FEMMERE 

SEKSERE 


POINT 


860 PRINT"I B O N U S I I 

";W 2 *i" IH I"! 

870 PRINT" I-- \ --I 

"IW3*;" I l"; 

880 PRINT"I TRE ENS I I 

";W1*5” I Al"! 

890 PRINT"I FIRE ENS I I 

";N2*;" II"; 

900 PRINT"I FULD HUS I I 

" ;W3*;" INI"; 

910 PRINT"I LILLE GADE I I 

";wi*;" i i"; 

920 PRINT"I STORE GADE I I 

";W 2 *;" IC!"; 

930 PRINT"I FEM ENS I I 

ti £ 1 ^ 3 $ • i* | | M • 

940 PRINT"I CHANCEN I I 

IE I " ; 

950 PRINT" *-.-1---4 

" ;W5*;" l l"; 

960 PRINT" ITOTAL I I 

" ;W 6 *;" l—• ”; 

970 L0CATE8.23: PRINT" 1 --J-—- 

-'-' " ; :LOCATE0. O 

980 RETURN 

990 L0CATE8.1;PRINTRD*:L0CATE21.1;P 
RINTN*(PL) 

1000 F0RF=1T06 

1010 IFT <PL.F)=-1THEN1050 

1020 PO*=STR*(T < PL.F)) 

1030 IFLEN(PO*)< >4THENP0S=" "+PO*;G 
0T01030 

1040 L0CATE17.F+4:PRINTPO* 

1050 NEXTF 

1060 F0RF=7T013 

1070 IFT(PL.F)=-1THEN1110 

1080 PO*=STR*(T(PL.F)) 

1090 IFLEN(PO*)< >4THENP0*=" "+PO*:G 
OTO 1090 

1100 L0CATE17.F+7:PRINTP0* 

1110 NEXTF 

1120 ZW=T(PL.1)+T(PL.2)+T(PL.3)+T(P 
L.4)+T(PL,5)+T1PL.6) 

1130 IF2W<64THENZW=0ELSEZW=35 
1140 ZW*=STR*(ZW) 

1150 IFLEN(ZW*)<>4THENZW*=" "+ZW*:G 
OTO 1150 

1160 L0CATE17.12:PRINTZW* 

1170 6E=ZW:F0RJ=1T013 

1180 IFT(PL.J)<>-lTHENGE=GE+T(PL.J) 

1190 NEXTJ:R(PL.RD)=GE 

1200 GE*=STR* <GE) 

1210 IFLEN(GE*)<>4THENGE*=" "+GE*;G 
OTO 1210 

1220 L0CATE17.22:PRINTGE* 

1230 RETURN 
1240 LW=RND(-TIME) 

1250 PLAY"01T255L64S14M5" 

1260 L0CATE26.6:PRINTCHR*(223+(INT( 
RNDIl)* 6 )+1)):PLAY"G" 
















1270 IFSTRIG(0)s-lORSTRIG<1)=-10RST 
RIG(2)=-1THENBEEP:G0T0 1370 
1280 L0CATE2é f 9:PPINTCHR*(223+(INT< 
RND (1)#6) +1) ) : PLAY"G" 

1290 IPSTRIG(O) = -10RSTRIG( i ) = - 1ORST 
RIG(2)=-1THENBEEP:GOTO 1370 
1300 L0CATE26.12:PRINTCHR*(223+(INT 
(RND(1)*6)+ 1) ):PLAY"G" 

1310 IFSTRIG (O)=-1ORSTRIG (1 ) =-10RST 
RIG <2)=-1THENBEEP:GOTO 1370 
1320 L0CATE26.15:PRINTCHR*(223+(INT 
(RND(1)*6)+ 1) ):PLAY"G" 

1330 IFSTRIG(O)=-1ORSTRIG(1)=-10RST 
RIG(2)=-1THENBEEP:G0T0 1370 
1340 L0CATE26.18:PRINTCHR*(223+(INT 
(RND(1)#6)+1)):PLAY"G" 

1350 IFSTRIG(O)=-1ORSTRIG<1)=-10RST 
RIG(2)=-lTHENBEEP:GOTO 1370 
1360 GOTO 1250 

1370 F0RF=1T05: W2 <F) = INT (RND (1) ¥r6) + 
1:NEXTF 

1380 FORF«1TOS 

1390 IFW1<F)=-lTHENWl(F)=W2(F) 

1400 NEXTF:S0=1:F0RF=1T06;F0RG=1T05 

o 

o 

1410 IFW1(G)=FTHENW2(SO)=W1(G):SO=S 
0 + 1 

1420 NEXTG.F 

1430 FORF=1T05:W1(F)=W2(F):NEXTF 
1440 F0RF=1T05 

1450 L0CATE26.6+((F-l)*3):PRINTCHR* 

(223 + W1< F) ) 

1460 NEXTF:BEEP 

1470 RETURN i 

1480 CLEAR300G:SCREEN1:KEYOFF:COLOR 
1.15,15:WIDTH32:CLS 

1490 print " mm & o mm <m ® m 

W WMI** 

1500‘"PRINT" V O ø 0 15 fe? © 0 © 

e “ 

1510 print " m mm mm m « m « 

n 

1520 PRINT" © 

• " 

1530 PRINT" MM 9 « W « « mm 
# M" 

1540 PRINT 

1550 PRINT" r— . 

1560 PRINT" i 

I " 

1570 PRINT" I ET SUPER SJOVT O 

I 0 

1580 PRINT" i — SPIL ——— 

I " 

1590 PRINT" I 

I " 

1600 PRINT" I JOHNNY B. MUSIK 

I " 

1610 PRINT" I TLF. 06-826698 


I " 

1620 PRINT" I 

I " 

1630 PRINT" i 

—__i « 

1640 G0SUB330 
1650 G0SUB300 
1660 LOCATEO.16 s PRINT" 


1670 PRINT"I HVORMANGE SPILLERE < 
1 - 5 > ? I " i 

1680 PRINT"I SPILLERE! 

I" 1 

1690 PRINT" i—— --—___ 

--1 ti ■ 

1700 LE%=1:IN*=" " :X1%=12:X2%==18 
1710 G0SUB370 

1720 IFIN*=" "OROAL(IN*) <1OROAL(IN* 


)>5THEN1660 

1730 M1=0AL(IN*):DIMM*(MI):DIMT <MI. 
13) :DIMR(MI.3) S W1*=CHR*(230) +CHK*<2 
31)+CHR*<232):DIMKW(MI):DIMSO(MI) 


1740 W2*=CHR*(233)+CHR*<229)+CHR*(2 
34):W3*=CHR*(235)+CHR*(236)+CHR*<23 
7) : DIMW1 (5) :DIMW2(5) : W5*=CHR* (238) + 
CHR*(239)+ CHR*(240):W6*=CHR*(32)+CH 
R*<241)+CHR*(242) 

1750 F0RF=1TOMI:BEEP:Y*=STR*(F): Y*= 
RIGHT*(Y*.LEN(Y*)-1) 

1760 LOCATEO.16:PRIMT" 


II 

1770 LOCATEO. 16: PRINT" i—-—________- 

_ . II o 

1780 PRINT"I NAVNE'PAA "Y*".SPILL 
ER I"; 

1790 PRINT"I' SPILLER: 

I " ; 

1800 PRINT" l.. —--- 

I II ø 

1810 LE%=10:IN*=" »:X1%=12 

:X2%=18 

1820 G0SUB370 

1830 N*(F)=IN*:NEXTF 

1840 FORRD=1T03 

1850 F0RTY=1TQMI:F0RTE=1T013: T(TY. T 

E)=-l:NEXTTE.TY 

1860 IFRD=1THENRD*="I " 

1870 IFRD=2THENRD*="II" 

1880 IFRD=3THENRD*="III" 

1890 FORDU=lT013 
1900 FORPL=1TOMI 
1910 G0SUB740 
1920 G0SUB990 

1930 F0RF=1T05:W1(F)=-l:NEXTF 

1940 WER=1 

1950 GOSUB1240 

1960 IFWER=3THEN2220 

1970 Xi%=6 














raiwaffEjmraaimraimimiaimfajajmimraimfmiaimrarajaiBimramrajmimiaiarBjarsisraramrarajmiarajaiarafafairaiBia" 



rsmj^sm^s^s^mjs'si'ss^sm'mmmissmwsurzmsmmmmsmimsssBsm^mmMmmmmisj'BsmsjmiaJ'SXSSSjmi'ss^mxsi^xsj 


i980 F0RTE=1T05:0W < TE)=-i:NEXTTE 
1990 L0CATE28.6:PRINT"<" 

2000 IFSTICK(0)=10RSTICK(i)=10RSTIC 
K (2) = 1THENGOT0 2040 

2010 IFSTICK(0)=50RSTICK(1)=50RSTIC 
K (2)=5THENG0T0 2070 

2020 IFSTRIG(O)=-10RSTRIG (1)=-10RST 

RIG(2)=-lTHENGOTO 2100 

2030 GOTO 2000 

2040 ’FRA OVEN 

2050 IFX1%-3=3THEN2000 

2060 L0CATE28.X1%:PRINT.XI%=X1%- 

3:L0CATE28.X1%:PRINT"<":F0RPAU=1TQ5 

O:NEXTPAU:GOTO 2000 

2070 ’FOR NEDEN 

2080 IFX1%+3=24THEN2000 

2090 L0CATE28.Xi%:PRINT" ":X1%=X1%+ 

3: L0CATE28. XI%: PRINT" < 11 : F0RPAU=1T05 

o:NEXTPAU:GOTO 2000 

2100 ’ START 

2110 IFX1%=21THEN2150 

2120 IFOW(Xl%/3-l)=-lTHEN2140 

2130 OW <Xl%/3-l)=-l:L0CATE26.X1%-i: 

PRINTCHR$(231)*. F0RPAU=1 T050: NEXTPAU 

IGOTO 2000 

2140 OW(Xl%/3-l)=l:L0CATE26.Xi%-1:P 
RINTCHRSM243) :F0RPAU=1T050:NEXTPAU: 
GOTO 2000 

2150 F0RTE=5T017STEP3:L0CATE26.TE:P 
RINTCHR^(231):NEXTTE:L0CATE28.21:PR 
INT" ":F0RTE=1T050:NEXTTE 
2160 IFOW< 1) = -1ANDOW< 2) = -1ANDOW< 3) = 

-1ANDOW< 4 > = -1ANDOW(5) = -1THEN2220 

2170 WER-WER+1 

2180 F0RTE=1T05 

2190 IFOW ( TE)=1THENWi(TE)=-1 

2200 NEXTTE 

2210 GOTO 1950 

2220 Xl%=5:L0CATE1.5:PRINT">" 

2230 IFSTICK<O)=1QRSTICK(i)=1ORSTIC 
K (2) = 1THENGOTO 2270 

2240 IFSTICK(O)=50RSTICK <1)=50RSTIC 
K (2)=5THENG0T0 2320 

2250 IFSTRIG(O)=-10RSTRIG(1)=-10RST 

RIG(2)=-lTHENGOTO 2370 

2260 GOTO 2230 ) 

2270 ’FOR OVEN 

2230 IFX1%-1=4THEN2230 

2290 L0CATE1.X1%:PRINT" " 

2300 X1%=X1%-1:IFX1%<14ANDX1%>10THE 
NX1%=10 

2310 L0CATE1.Xl%:PRINT">":F0RPAU=1T 
050:NEXTPAU:GOTO 2230 
2320 'FORNEDEN 
2330 IFX1%+1=21THEN2230 


2340 L0CATE1.Xi%:PRINT" " 

2350 X1%=X1%+1:IFX1%>10ANDX1%<14THE 
NX1%=14 

2360 L0CATE1.Xl%:PRINT">":F0RPAU=1T 

050:NEXTPAU:GOTO 2230 

2370 'START 

2380 IFX1%>10THEN2450 

2390 GR=Xl%-4 

2400 IFT(PL.GRX>-1THENBEEP:G0T0 22 
30 

2410 T(PL.GR)=0 
2420 F0RTÉ=1T05 

2430 IFW1(TE)=GRTHENT(PL.GR)=T(PL.6 
R) +GR 

2440 NEXTTE:GOTO 2920 
2450 GR=Xl%-7 
2460 IFGR=8THEN2590 
2470 IFGR=9THEN2650 
2480 IFGR=10THEN2710 
2490 IFGR=11THEN2780 
2500 IFGR=12THEN2820 
2510 IFGR=13THEN2890 
2520 'TREER KAST 

2530 IFT(PL.GRX>-1THENBEEP:G0T0 22 
30 

2540 IFW1<1)=W1(2)ANDW1(2)=Wi(3)THE 
N2580 

2550 IFW1(2)=W1(3)ANDW1(3)=W1(4)THE 
N2580 

2560 IFW1(3)=W1(4)ANDW1(4)=W1(5)THE 
N2580 

2570 T(PL.GR)=0:G0T0 2920 
2530 T(PL.GR)=0:F0RTE-1T05:T(PL.GR) 
=T(PL.GR)+W1(TE):NEXTTE:GOTO 2920 
2590 'FIRER KAST 

2600 IFT(PL.GR)< >~1THENBEEP:GOTO 22 
30 

2610 IFW1(1)=W1(2)AMDW1(2)=W1(3)AND 
W1(3)=W1(4)THEN2640 

2620 IFW1(2)=W1(3)ANDW1<3)=W1(4)AND 

W1<4)=W1(5)THEN2640 

2630 T(PL.GR)=0:GOTO 2920 

2640 T(PL.GR)=0:FORTE=1T05:T(PL.GR) 

-T <PL.GR)+W1(TE):NEXTTE!GOTO 2920 

2650 'FULD HUS 

2660 IFT(PL.GR)< >-iTHENBEEP:GOTO 22 
30 

2670 IFW1<1)=W1(2)ANDW1(2)=W1(3)AND 
W1(4)=W1(5)THEN2700 

2630 IFW1(i)=Wl(2)ANDW1(3)=W1(4)AND 

W1(4)=W1(5)THEN2700 

2690 T(PL.GR)=0:GOTO 2920 

2700 T(PL f GR)=25:GOTO 2920 

2710 ’LILLEGADE 

2720 IFT(PL.GRX>-1THENBEEP:G0T0 22 
30 










2730 IFW1<1)=W1(2)-1ANDW1(1)=W1(3)- 

2ANDW1(1)=W1< 4)-3THEN2770 

2740 1FW1(1)=W1(3)-1ANDW1<1>=W1(4) - 

2ANDW1(l)=Wi(5)-3THEN2770 

2750 IFW1<1)=W1(2)-1ANDW1(1)=W1(3) - 

2ANDW1(1)=W1< 5)-3THEN2770 

2760 T(PL.GR)=0*.G0T0 2920 

2770 T(PL f GR)=30:GOTO 2920 

2780 ’STOREGADE 

2790 IFT(PL.GR)<>-lTHENBEEP:GOTO 22 
30 

2800 IFW1(1 )=W1(2)-lANDWi(1)=W1(3)- 
2ANDW1(1)=W1(4)-3ANDW1<1)=W1(5)-4TH 
ENT(PL.GR)=40:GOTO 2920 
2810 T(PL.GR)=0:GOTO 2920 
2820 1 FEMMMERE 

2830 IFW1(1)=W1(2)ANDW1(2)=W1(3)AND 
W1(3)=W1(4)ANDW1(4)=W1<5)THEN2860 
2840 IFT(PL.GR)=-lTHENT(PL.GR)=0:GO 
TO 2920 

2850 BEEPZGOTO 2230 

2860 IFT(PL.GR)=OTHENBEEP:GOTO 2230 
2870 IFT(PL.GR)=-1THENT(PL.GR)=0 
2880 T(PL.GR)=T(PL.GR)+50:GOTO 2920 
2890 ’CHANCEN 

2900 IFT(PL.GRX>-1THENBEEP:G0T0 22 
30 

2910 T(PL.GR)=0:F0RTE=1T05:T(PL.GR) 
=T(PL.GR)+W1(TE):NEXTTE:G0T0 2920 
2920 G0SUB990:F0RPAU=1T01000:NEXTPA 
LI.PL. DU. RD 

2930 Al$="V1503T160S2M10000" 

2940 A2$="L8DL8F + AA.L16BL8AF + D.L16E 
L8F+F+EDL4E.G4L8DF+AA.L16BL8AF+D.L1 
6EL8F+F+EEL2D05L4GGL8BL4BL8BAAF+DL4 
E.04L16DEL3F+AA.L16BL8AF+D.L16EL8F+ 
F+EEL2D" 

2950 Al$=A.t$ + A2$ 

2960 PLAYA1& 

2970 FORTE=1T0MI 

2980 KW < TE)=R < TE.1)+R(TE.2)+R(TE f 3) 
2990 NEXTTE 
3000 G0SUB3120 

3010 F0RTY=1T0MI:PS=0:FORTE=1TOMI 
3020 IFKW(TE)>PSTHENLZ=TE:PS=KW(TE) 
3030 NEXTTE 

3040 L0CATE1.TY+6:PRINTKW(LZ)S:LOCA 
TE6.TY+6:PRINT"PUNKE HAT "|N«(LZ> 
3050 KW <LZ)=-i:NEXTTY 
3060 G0SUB3250 
3070 PLAYA2* 

3080 T*=INKEY$:IFT$=""THEN3080 
3090 IFT$="i"ORTife="J”THENRUN 
3100 IFT*="n"ORT*="N"THENEND 
3110 GOTO 3080 


3120 CLS-.LOCATE0.2-.PRINT" r— 

* II « 

3130 PRINT"I SLUTSTILLING 


I" S 

3140 PRINT"i 

_i » ■ 


3150 

3160 

PRINT 
PRINT" r- 

II » 

3170 

PRiNT"1 

3180 

| II • 

PRINT"1 

3190 

| II e 

PRINT"1 

| II «• 

3200 

PRINT"1 

3210 

| II • 

PRINT"1 

3220 

PRINT"1 

3230 

1 H * 

PRINT" l. 

_i » > 


-1 " 5 

3240 RETURN 


3250 LOCATE O.15!PRINT" .- 

__ II e 

3260 PRINT"I ENDNU ET SPIL <J/N) 
I " : 

3270 PRINT " 

3280 RETURN 















raraiziaig»ai , aiaigiarafEiaiaraiaiEiaiaiaraiBiBiEiHiBiBiaigiBiaiaiBiHiBiEiaiaiaiaiaiaiBiatBiarajBig»EigiaiEr 




I sidste nummer skulle vi have 
udskrevet den lille tabel på 
skærmen. Umiddelbart kunne 
programmet ikke køre, fordi der 
var syntaxfej'l i. 

I linie 60 skulle stå: 

60 NEXT A 

og i linie 50 skulle der stå: 

50 NEXT C 

Dette var imidlertid ikke nok. 
Der var noget galt med linie 30 
- her var STEP-variablen sat 
lig med A. Det vil sige at vi 
programmerede maskinen til at 
løbe i en løkke - startende i 
linie 30 med nul og et spring 
på nul (idet A jo starter 
løkken med nul). 

Dette giver ingen 
hvis vi 

STEP-variablen til 
hele meget bedre. 

Programmet ser herefter således 
ud: 

10 FOR C = 1 TO 10 
20 PRINT 

30 FOR A = 0 TO (C * 10) 
STEP C 
40 PRINT A; 

50 NEXT A 
60 NEXT C 


mening, og 
forandrer 
C går det 


Nu skal vi se lidt på betingede 
udtryk. Hvad vil det nu sige?? 
Jo, med anvendelsen af If kan 
man få datamaskinen til at gå 
bestemte veje i sit program på 
ganske bestemte betingelser - 
eller når en eller flere 
betingelser er opfyldt. Til If 
hører et Then. Det vil sige 
HVIS betingelsen er opfyldt SA 
udfør en bestemt transaktion. 


Prøv om du kan løse denne 
opgave uden at kigge længere 
henne i artiklen på, hvordan 
jeg har tænkt mig at løse 
opgaven. 

OPGAVE: 


Lav et program, 
hvor gammel man 
man må køre bil 
mulighed for at 
hvor programmet 
svaret var korre 


der spørger, 
skal være før 
og giver 
indtaste svar, 
fortæller om 
kt. 


I nedstående løsningsforslag er 
der 3 fejl. 

10 PRINT ”HV0R GAMMEL SKAL MAN 
VÆRE FØR MAN MA FA KØREKORT?” 
20 INPUT A 

30 IF A < 18 JHEN PRINT "SVARET 
ER FORKERT” 

40 GOTO 10 

50 IF A = 18 PRINT "SVARET ER 
KORREKT” 

60 IF B > 17 THEN PRINT "SVARET 
ER KORREKT” 

70 END 

Prøv om du kan finde fejlene! 


peter 


Stregerne viser hvordan For- 
Next-1økkerne hænger sammen. 

Man må aldrig lave løkker sådan 
at stregen fra For til Next 
krydser en anden 

For-Next-streg. 
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20 "> > 

30 '< SPOK TORNET < 

40 '> ~~~~~~~~~~~ > 



Mier oso-f t 
Ex tended 


50 '< 

60 ' > 

70 y < 

80 / > 

?o "<<<<<<<;<<<:<<<<:<<<<< 

100 ' CSAME"SPOKT." 4537 Bytes used 

110 DEFINT A-6,I-Z:GOSUB530 
120 NIDTH39:TROFF:COLOR lO.O.lsSCRE 
EN 1,2 

125 '-SPRITES- 

130 RESTGRE:F0RI = lT06:S-|i=STRING*< 32 


ETT SPEL AM C 

-- > BASIC 

HENRI C LINDEN < 

-—~~~ > (Jer- 1 . 0 


0.111111,11111100.11111,11111000 
230 DATA 0.0.G.0.0.G.0.0.111000.0.1 

o 1111 o.o.i i i i i il i.o.i i i i o 11 .o. li o. o 
. 11 o.o. i i oo.iloooooi . 11101,11 i 000i 1 
.11061.10110110.1100 i,101101 lo. 1111 
. 0001 iiio.no. 0000110b 

240 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0, 

0.1.1ooooobo,10.bibooobo.1.ibooobob 
.i obi.1001oobo.ioooi011.i 1010001.10 
00111 i.1111000 i,1100111 i.1111001 i,1 
111111 i.1111111 i.1100000b.11 

250 DATA 1.0.G.10000000.0.01000000. 

0.00100000.o.oi 000000.0. 10000000.1 . 
0.10.0.100.0.10.0.1.0.0.10000000.0. 
o ioooooo,o,oo lobobo,o,o ioooooo,o, 10 
000000 


.0):FORJ=1TO16 1 READA*.B$:MID*< S*.J, 
i)=CHR*<MAL<"ftcB"+ A$)):MID*<S*,J+l 6 , 
1)=CHR$<MAL< "&:B"+B$)) :NEXT :SPRITE$< 
I )=S$iNEXT 

135 '- START MARDEN - 

140 X1=30:X2=100 sX3=80:X4=201:F=0 
150 N=1:M=2;P=0sK=3:X=40sY=114:G=Q1 
155 x -SPELPLAN- 


260 GOSUB270:GOT0350 

265 '- LOOP FOR MONSTER ---- 

27 0 X1=X1 + Q:X 2=X2-Q:X 3=X 3+Q s X 4=X 4-G 
i PUTSPRITE 1.<X1.21) f 15.1:PUTSPRITE2 
.<X2.50).13,2:PUTSPRITE3,(X3.80).9. 
5:PUTSPRiTE4.<X4.114).2.4 
280 I FPOINT(X.Y+i0)=14ANDYC25THENP0 
=PO+100X01:N=N+1:X=40:Y=114:Q=Q+.5: 


160 LINE< 0.130)-<256.140).11 f BF»LIN 
E< 0. 150)-<250.158) .1.BF 
170 GOSUB530:COLORis:LOCATE30.170:P 
RINT"SMARIGHETSGRAD"Q1;:COLOR7:PRIN 
T" SPOK TORNET 

AM H.LINDEN 

180 LINE<20.13G)-< 30.0).14.BF:LINE< 
236. 130)-<226.0).14 f BF sLINE<33.97)- 
<203. 100).4.BF:LiNE< 53.67)-< 223.70) 

.4.BF:LINE < 33.4 0)-< 2 03.37).4.BF 
i 90 LI NE <213. i 00)-<216. 130) . ’lO.BFsL 
INE<41.96)- <44. 70).10.BF:LINE<213.6 
6)-<216.40).10.BF 

195 '- DATASATSER - 

200 DATA 0.0.1.11110000.11.11111000 

.111 f iiooii go. i 11.iiooii oo.111.1100 
i ioo. 11 l i. 111 i i ioo. ii 11. ni nooo. 11 
i il. i il i iboo. n i n. n i ibooo. linn. 

II ii oooo. n i n 11. i i looooo. nnnn. 

1 1 100000. 1 1 1 1 1 1 1 ’l . 1 1 000000. 101 101 10 

.ilooooob.o.o 

210 DATA 0.0.0.0.0.0.0.10001010.0.0 

1010000.o.bobobi i g. o.o i 110000.o.ioo 
00100.1 . 10001010.1 i 1 . 1 1 100100. 1 1 1 1 . 

III loboo. i n 11. i i n iboo. n n i. i n n 
ooo. n n i. n 11 i ooo. lin.ii n oooo. 11 
i. i i looooo 

220 DATA 0.0.0.0.0.0.0.0,0.0.0.0.0. 

o. o. o. n 11 i. i i i i i obo, i ioon , noono 
o, i i ibon, i ioon 10, i i n n n, n i n n 
i, noi n i i, n n ioi i, 1100000,0000011 


X4=201:60SUB530:GOT0260 

290 I FX1>187THENX1=30 

300 IFX2<5GTHENX2=201 

310 IFX3> 387THENX3=30 

320 IFX4C30THENX4=20 i 

330 IFX3>90ANDX3<960RX3>150ANDX3<15 

6THENPUTSPRITE10,<X3,70),10,6:BEEPE 

LSEPUTSPRITE10,<200,200),1,6 

340 RETURN 

345 ■--HUMUDLOOP- 

350 PUTSPRITE5,<X,Y),7.K 
360 IFSTRIG<0)ORSTRIG<1)THENG0SUB41 
0 

370 ONSPRITE60SUB490 s SF'RITEON 

380 IFX<30THENX=30ELSEIFX>210THENX= 

210 

39 0 IFSTICK< 0)>50RSTICK< 1)>5THENX=X 
-3:M=-2ELSEIFSTICK<0)>10RSTICK<1)>1 
T HENX=X + 3:M=2 
400 GOTO 260 

410 I FF'OINT <X +8 , Y) = 1 0THEN500 
415 "-HOPP- 

420 FORY=YTOY-17STEP-1:G0SUB270:PUT 
SPRITES,<X,Y),7,K:X=X+ <M) 

430 IFX< 30THENX=3OELSEIFX>210THENX= 
210 

440 NEXT 

450 FORY=YTOY+17:GOSUB270s PUTSPRITE 
5.<X,Y),7,K:X=X+ <M) 

460 iFX<30THENX=30ELSEIFX>210THENX= 
210 











470 NEXT 
480 RETURN 

485 '-SLUT 1- 

490 S0UND8.10:FORH=1T0255:SOUNDO.H: 
COLOR..HÅND 15 sNEXT:SGUND8.0:FORH=IT 
0255:COLOR..HÅND 15:NEXTHs COLOR..1:6 
OT0550 

495 •-- MANINGSBYTE - 

500 IFY >9 0THENQZ=33ELSEQZ=2? 

510 FORY=YTOY-GZSTEP-1 sGOSUB270:PUT 
SPRITES.<X.Y).7.K:NEXT:PO=PO+1GO*Q1 
:GOSUB530 
520 GOTO350 

525 •'-PGANGUT SKRI UN 1NG- 

530 BEEP:LINE< 0. 150)-<250. 153) . 1 .'BF 
: LOCATE30.150: C0L0R6 : PR I NT " POANG" PO 
:LOCATE110.150:COLOR10:PRINT”RECORD 
"HI:LOCATE190.150:COLOR12:PRINT"NIM 
A"N 

540 RETURN 

545 -SLUT 2- 

550 I FHI<POTHENHI=PO 

560 SPRITEOFF:FORU=132T0133:L0CATE3 

0. U: COLOR 1: PR I NT 11 GAME OMER GAME O 

MER GAME OMER":NEXT 

570 IFSTRI 6 <0)ORSTICK< 0)ORSTRIG<1)0 

RSTI CK < DTHEN1 10ELSE570 

580 G0SUB590:GOT0620 

535 '- SPELFORKLARING - 

590 WIDTH40:CL1CKOFF:SOUNDOFF:COLOR 
1.15.15:SCREENQ.0:LOCATE..0 
600 PRINT" " 88 



610 PRINT:PRINT:RETURN 

615 ----- Isa SPELFORKLARINGEN - 

620 PRINT" SPOKTORNET gar ut pa a 
tt -forsoka na vaggen 1 angst upp 

till vanster .01 ika -faror lurar 
pa vågen upp.T.ex. ormar. rvmd-far 

koster och naturligtvis sp 

ok en . 

630 PRINT:PRINT:PRINT:PRINT:PRINT" 
Tryck pa ";:PRINTCHR*<27)+" 
D FIRE "+CHR*<27)+"q" 

640 IFSTRIG< 0)ORSTRIG<1)THEN650 ELS 
E 640 

645 '- 2:a SPELFORKLARINGEN - 

650 CLS:GOSUB590 

660 PRINT" Svarighetsgraden i spe 


let ar -farten pa monst ren . For v 

ar-.ie gang du har lyckats att 

komma till vaggen langst upp til 
1 vanster sa okar -farten pa mo 

nstren.Upp till nasta våning 

kommer du lat tast genom att ha u 
n g." 

670 PRINT" mitten av din gubbe pa 
den gula stolpen plus ett 

tryck pa -fire. For att styr 

a och hoppa anvand en joys 

tick i oort 1 ." 

630 PRINT:PRINT:PRINT" Trvc 

k pa " *, :PRINTCHR*<27) + "p FIRE " +CHR 
■$< 27) + " q" 

690 I FSTRI G< 0) ORSTRI G< DTHEN700 ELS 
E 690 

695 -SMARIHET S 6 RAD- 

700 CLS:GOSUB5?0:LOCATE7.1G:PRINT"S 
var- iohetsgrad " :L0CATE11. 15:PRINT"M 
al i 1-3" 

710 IFSTICK(0)ORSTICK<1)=3THENF=F+1 

ELSEIFSTICK<0)ORSTICK<1)=7THENF=F-1 

720 FORI=1T0400:NEXT 

730 IFF<1THENF=3ELSEIFF>3THENF=1 

740 LOCATE 27.10:PRINTF 

750 IFSTRIG< G)ORSTRIG< 1 )THENQ1=F:GO 

T076GELSE7i 0 

760 L0CATE6. 10 :PRINTCHR$<27)+"p Sva 
riohetsorad ":L0CATE27.10:PRINTQ1:L 
OCÅTEloT15:PRINT" Malj 1-3 " 

770 PRINTCHR$< 27) + "a" 

780 S0UND8.10:F0RJ=40TO7STEP-1:FORH 
= 1T0215STEPJ:SOUNDO.H:SOUND 0 .H+10:S 
0UND 0.H+20:SOUND 0.H+ 3 0:SOUND 0.H+ 4 0: 
NEXT:NEXT:SOUND8.0:FORH=1T0511:COLO 
R.HÅND 15:NEXTH 
790 PO=0:RETURN 
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Som det gerne plejer at gå her 
under jul, er jeg begyndt at blive 
overdænget af en salig rus af god¬ 
modighed. Derfor vil jeg give dig 
et tilbud: Ved køb af mindst 8 
programmer vil du få de 2 gratis, 
og derudover vil spillet "Knight 
Tyme” følge kvit og frit med enhver 
bestilling på mindst 4 programmer 
(hvis du da ikke direkte frabeder 
dig det - i så fald skal jeg nok 
finde på noget andet godt (hvad med 
et rart lille cassette-kabel?)). 
Bestiller du således 8 programmer 
på bånd skal du betale: 

25 + 8*10 - 2*10 = 85,- dkr. 
og i den pris får du så også 
"Knight Tyme" med. 

Ellers kan jeg fortælle at en 
gruppe ihærdige mennesker på reak¬ 
tionen (Kurt, Søren & Lars) er ved 
at lægge sidste hånd på en super 
MSX-DOS-diskette, der fra næste år 
vil være at erhveve her fra MSX-BIB 
formedelst 100,- dkr. Disketten 
indeholder stærkt forbedrede udga¬ 
ver af DIR, TYPE og EDITFKEY kom¬ 
mandoerne, et program til udprint¬ 
ning af filer, et LOOK-program til 
at kigge i filér, et VOLUME-program 
til at give disketter navn samt et 
par andre småprogrammer. Men mere 
om denne lækkerbidsken i næste 
nummer. 

Ønsker du at komme i besiddelse 
af nogle af dem i nedenstående 
liste nævnte programmer fra MSX-BIB 
er fremgangsmåden som altid: 

Du sætter dig ned og finder ud 
af hvilke programmer du vil købe. 
Derefter forlader du jule-pynte- 
klippe-klisteriet for en stund, går 
hen på posthuset, fatter et giro¬ 
indbetalingskort, og skriver pro¬ 
gramnavnene på bagsiden. 

Priser: 

15 min. bånd - 25 dkr. stk. 

5.25” disk - 25 dkr. stk. 

3.5" disk - 35 dkr. stk. 
programmer - 10 dkr. stk. 

Forsendelses omkostninger er in¬ 
kluderet i disse priser. 



Et bånd kan rumme 8 programmer. 
En disk kan rumme hele biblioteket. 


Programmerne bestilles hos: 

Kim Andersen 
Fundervej 32 
2610 Rødovre 
gironr. 7 50 87 00 


Jeres egne programmer sendes til 
samme adresse. (der venter stadig 
en belønning i form af bånd eller 
disketter efter eget ønske). 

Ki m 



Indhold i MSX-BIB: 

- "Thorkild”, styr din loppe op af 
kloaken. Vandvittig morsomt. 

- "X—Basic", oversætter basicpro- 
gram til maskinkode resulterende i 
en meget stor hastighedsforøgelse. 

- "Milas", teksteventyr i Milas's 
slot. Rimelig underholdende. 

- "Nim”, det gamle kinesiske pinde¬ 
spil - hvem tager den sidste pind? 

- "Tank”, 2-mandsspil hvor man skal 
kanonføde hinanden. 

- "Wall”, 2-mandsspil lignende 
bordtennis. 

- ''Seafight”, Skyd jetjagere, der 
angriber ens skib. 

- "Fødag”, sig tillykke til din mor 
med et lille grafik/lyd show. 

- "Kalender”, Udregner kalender for 
ønsket år eller ugedag for dato. 

- "Colortrim", definer nye farver 
mellem 512 mulige. Kun til SVI-738. 

- "Bronski”, spiller Bronski Beat's 
'Smalltown boy'. 

- "Musik”, en lang række kendte 
melodier, bl.a. 'Cavatina'. 

- "R2D2", tegner det lille kære 
metal væsen. 

- "Lamborghini”, har du ikke råd 
til at købe en, så se en. Flot! 

- "Lineshow”, meget flot demonstra¬ 
tionsprogram med bevægende linier. 

- "Kegle", vælt den enlige bevægen¬ 
de kegle med din bowlingkugle. 
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- ”Figflyt", kan flytte og dreje 
figurer du tegner ved at angive 
hjørnekoordinater. Regner nye ud. 

- "Sprite", tegn din sprite og du 
får hvad der skal stå i data¬ 
linierne. Meget enkelt. 

- "Regression”, smart program der 
ud fra indtastede data (koordina¬ 
ter) tegner en tilpasset kurve. 

- "Tegne", lille tegneprogram med 
de gængse kommandoer. Flot grafik. 

- "Snake Valley”, æd modstanderens 
hale inden han æder din. For 1 
eller 2 spillere. Rigtig sjovt! 

- "Biorytmer", afgør hvordan din 
fysiske, psykiske & intellektuelle 
ti Istand er d.d, 

- "Chopper”, hel i koptorspi 1 med 12 
baner, incl. designerprogram til at 
lave mange flere. 

- "Ormrun”, Charlottenlund Travbane 
med orme, flot grafik & lyd. 

- "Demo", oplev hvilke grafiske 
muligheder din MSX indeholder. 

- "Amorti”, regner rente, afdrag og 
restgæld på din afbetaling ud. 

- "Tips”, indtast dine tips (også 
sys.) og prog. viser antal rigtige. 

- "The Maze”, lav en labyrint og få 
en anden til at slippe igennem. 

- "Life", tegn et mønster af cel¬ 
ler, og du ser dem udvikle sig. 

- "Sound Maker”, lav den rigtige 
lyd til dit sdpil på denne flotte 
mikserpu1t. 

- "Halv Tolv”, lige som i Monte 
Carlo, på med pokerfjæset. 

- "Danmark”, lær de danske byers 
beliggenhed, flot grafik. 

- "Oil”, bliv olie-sheik på no 
time, sjovt to-mands-spi1. 

- "Puzzle”, sjovt puslespil på 16 
brikker med bevæglige billeder. 

- "Skyd Nu", skeetskydning som du 
kender det fra 01, hurtig grafik. 

- "Pengo”, det iskolde gys, klas¬ 
sikeren fra spillehallerne. 

- "Søjle”, behandler tal og stiller 
dem op som kurver el. søjler. 

- "Eliza”, Psykologen hjælper dig 
med kærestesorgerne, på engelsk. 

- "Graf", tegner en graf for den 
indtastede funktion, brugervenligt, 

- "Kartotek”, hold styr på dine 
cassette bånd og programmer. 


- "Moon Mission”, superlækkert gra¬ 
fik lander program, 5 baner. 

- "Frogrun”, få frøen sikkert over 
vejen og floden. 

- "Dump”, screendump prog. til din 
Epsonkompati ble printer. 4 forstør¬ 
relser. 4 gråtoner. 

- "Dbase", hurtig dbase hvor du kan 
sætte alt i system, indbygget ud- 
printningsf aci 1itet. 

- "Screen Store”, kan gemme to 
skærmbilleder og lynhurtig få dem 
frem igen. Kun til 64 k maskiner. 

- "Ram Disc”, arbejd med to pro¬ 
grammer på samme tid. Kun til 64 k 
maskiner. 



Gunnar Larsson fra Sverige har 
sendt os et PC-program der skal 
køres under GW-Basic. 

Før programmet kan benyttes skal du 
selv lige ændre i linierne 120-170, 
280-360, 390-430 & 530-590. Skriv 
her navnene på de programmer som 
menuen skal kunne starte. 
Programmerne skal alle være Basic 
programmer, men som man vil kunne 
se når man RUN'ner programmet kan 
man også gå direkte ud i DOS eller 
afbryde programmet. 

Vi takker Gunnar for hans bidrag 
til PC spalterne og kan jo så kun 
opfordre alle andre til også at 
vise hvad de har lavet på deres 
PC'er. 
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10 REM PROGRAMNAMN 
20 REM KONSTRUKToR 
N 

30 REM DATUM 
40 REM DATOR 
50 REM BASIC 
60 REM - 


: MENU.BAS 
: GUNNAR LARSSO 

: 1987-12-17 
: BONDWELL 38PC 
: GWBASIC 


70 CLS 
80 Yl$=" 


90 Y2$=" 

NY 1 II" 

100 Y3$= " S 


Ir- 

Il 

ME 

i* 1 



110 Y4$="(| 

il ; 

13S A 


Tlo z! 


1 

2=iJ 


lo vi 


-"II 

1 j Program 1 

—fl 

6 

-' > 11 

Program 6 

. 1__..__ .. 

II" 

»r~r_ _.. 

$="i 

2 j Program 2 

11 

7 

Program 7 

II" 

$=" 

3 j Program 3 


8 

Program 8 

II" 

= "H 

4 | Program 4 


9" 

Program 9 

II" 

$-"! 

I 5 | Program 5 


0 

MENY 2 

II" 

$="l 

. 1 . .. 



190 LOCATE 3,10 : PRINT Yl$ : PRIN 
T TAB(10)Y2$ : PRINT TAB(10)Y3$ : 

PRINT 

200 PRINT TAB(10)Y4$ : PRINT TAB(1 
0)Z1$ : PRINT TAB(10)Y5$ 

210 PRINT TAB(10)Z2$ : PRINT TAB(1 
0)Y5$ : PRINT TAB(10)Z3$ 

220 PRINT TAB(10)Y5$ : PRINT TAB(1 
0)Z4$ : PRINT TAB(10)Y5$ 

230 PRINT TAB(10)Z5$ : PRINT TAB(1 
0) Y6$ 

240 K$=INPUT$(1) 

250 IF K$="0" GOTO 370 
260 B%=ASC(K$)-48 : IF B%< 1 OR B?é> 
9 GOTO 240 

270 ON B% GOTO 280,290,300,310,320 
,330,340,350,360 
280 RUN"PROGRAM 1" 

290 RUN"PROGRAM 2" 

300 RUN"PROGRAM 3" 

310 RUN"PROGRAM 4" 

320 RUN"PROGRAM 5" 

330 RUN"PROGRAM 6" 

340 RUN"PROGRAM 7" 


350 RUN"PROGRAM 
360 RUN"PROGRAM 
370 CLS 
380 Y2$=" 

ENY 2 


8 " 

9" 


M 


390 

Zl$ 

= “|| 

1 | Program 

10 

|| 

II 

6 1 

Program 15 


400 

Z2$ 

:="|| 

2 | Program 

11 

|J 

u 

7 1 

Program 16 


41 

0 Z3 

i$="| 

| 3 | Program 

12 

y 

|l 

8 1 

MS-DOS 


42 

0 Z4 


| 4 | Program 

13 

|] 

|| 

9 1 

AVBRYTA 


43 

0 Z5 

'$="f 

| 5 | Program 

14 

u 

u 

0 1 

MENY 1 


440 

LOC 

:ate 

3,10 : PRINT 

Yl$ 


& 


PRIN 

T TAB(10)Y2$ : PRINT TAB(10)Y3$ : 

PRINT 

450 PRINT TAB(10)Y4$ : PRINT TAB(1 
0)Z1$ : PRINT TAB(10)Y5$ 

460 PRINT TAB(10)Z2$ : PRINT TAB(1 
0)Y5$ : PRINT TAB(10)Z3$ 

470 PRINT TAB(10)Y5$ : PRINT TAB(1 
0)Z4$ : PRINT TAB(10)Y5$ 

480 PRINT TAB(10)Z5$ : PRINT TAB(1 
0) Y6$ 

490 K$*INPUT$(1) 

500 IF K$-"0" GOTO 70 
510 B?é=ASC (K$) -48 : IF B%< 1 OR B%> 
9 GOTO 240 
520 ON B% GOTO 530 
,580,590,600,640 
530 RUN"PROGRAM 10" 

540 RUN"PROGRAM 11" 

550 RUN"PROGRAM 12" 

560 RUN"PROGRAM 13" 

570 RUN"PROGRAM 14" 

580 RUN"PROGRAM 15 
590 RUN"PROGRAM 16" 

600 CLS : LOCATE 10,25 


540,550,560,570 


PRINT"Vi 1 


1 Du komma till DOS tryck *" 

610 K$=INPUT$(1) 

620 IF NOT K$="*" GOTO 70 
630 SYSTEM 

640 CLS : LOCATE 10,25 : PRINT"Vil 


1 Du s luta tryck *" 

650 K$=INPUT$(1) 

660 IF NOT K$="*" GOTO 70 
670 END 
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1 ' 

2 ' 

3 ' 

4 ' 

5 ' 

6 ' 

7 ' 

8 ' 

9 ' 

10 1 
20 ' 

30 ' 

40 COLOR 9,1,1: SCREEN2, 2 
50 ' 

60 DRAW'bml 50, 5141h313gl5hl6hll4dgd 
11fdf3rd3f3rfr2e6ur3er6d5gd2gdgdg3d 
gdg2dgd2gdgd2gdgd3gd3gd3gd2grd511" 
70 1 

80 DRA W' rfd3fdf2df3rfd2g2dgdgdgdg2d 
gdgdgdg2dgdg2dg2dg3dg3dg2dgdg2dg3dg 
dgdgdg2dglgl2hl2hl2hll3glgig4d3f2r4 
frl4er7er4e2ue2u2e2u2e2ueueueueue2u 
eue2ue2ue2ue3ue3ueue3ue2ue4ue2d64g2 
f2 " 

90 ' 

100 DRAW' rf2rf2r2fr5 fri 1 e2u2h3uIhlh 
Ihl2hlIlu61fdfrereu8ere2r2u2eueueue 
ue2ueueueu2ehl1uh2uh3uh2uh5u4eu4eu4 
e4r8er2ereueuh3r4e2u2h314g4" 

110 ' 

120 DRAW"bml35, 4f4r2e3" 

130 DRAW"bml 13,18r5e5u3h61hlh3" 

140 DRAW"bmllO, Ile3ueu2rerl9e" 

150 DRAW'bml27,10r8d2u2h3" 

160 DRAW'bml 15,12f9df31" 

170 DRAW'bml21,13f6df21" 

180 DRAW'bml10,1116g" 

190 DRAW'bml 09, 714g" 

200 DRAW'bml58, 313gfr3u" 

210 DRAW'bm61,148r2ererer'' 

220 DRAW'bm64,153u2e3rer" 

230 DRAW'bml58,165h414hl" 

240 DRAW'bml 60,163h414h" 

250 DRAW'bml39, 91gh3u4eu3e5u3h2u2hu 
hu2huhu7eu4eu3hg" 

260 DRAW'bml41,95u9eu" 

270 DRAW'bml38, 95u8eu" 

280 DRAW'bml39, 78r4fr3ueueu2eu2eueu 
4h4uhl0" 


#***tf**#***rt**##**#***# 
* * 

* Hermed en tegning * 

* DEN LYSERØDE PANTER * 

* spiller bold * 

* Fra vort medlem * 

* Tony Marcher Esbjerg* 

* * 

* * 


290 DRAW'bml36, 81h3u2huhu2hu21eu4eu 
4e" 

300 DRAW'bml 19, 64g31g21gl2gl2glgl2g 

11Ihl3g4dfr3g2d2f2dfr5ferer2e2u4rl4 

u412gl4urererererere" 

310 DRAW'bm85,80e3r3gd3fd" 

320 DRAW'bm91,77er4g2d4" 

330 DRAW' bm94,76r2f2d4u2r4" 

340 DRAW'bm97, 77rl0" 

350 DRAW'bm79, 77rll0h213hl20gl2glgl 

g5d2f5r2fri8ur3er2er2ererere2re2r5f 
11 

360 DRAW'bm43, 77rl8fr3f3dg31gi 12gl1 
7hl3ulu4e3rer" 

370 DRAW'bm40, 79r27" 

380 DRAW'bm38, 81r29" 

390 DRAW'bm37, 85r27" 

400 DRAW'bm40, 78d8" 

410 DRAW'bm43, 77dl0" 

420 DRAW'bm46, 77dl0" 

430 DRAW'bm49, 77dl0" 

440 DRAW'bm52, 77dl0" 

450 DRAW'bm55, 77dl0" 

460 DRAW'bm58, 77dl0" 

470 DRAW'bm61, 77dl0" 

480 DRAW' bm37, 83r29" 

490 DRAW'bm64, 78d7" 

500 DRAW'bml37, Of6" 

510 DRAW'bm40, 93frl2er" 

520 DRAW'bm43, 98fr9e" 

530 DRAW'bm46,103r5" 

540 DRAW'bm86, 91fr9e" 

550 DRAW'bm89, 96r6" 

560 DRAW'bml49, 83r3f2rf3dfdfd7gd4gd 
2gd2gd2gd2gdgdgd2g2dgdgd5frfr4e4ueu 
1e2r2f2d7gdgd2g3dg2dg416hlh3ul7eu2e 
ueueu2eueueueu2eu5eu3eueu5h714" 

570 A$»"" : FORM-1T032:READA:A$~A$+CH 

R$ (A) :NEXTM 

580 SPRITE$(0)-A$ 

590 FORMM“70T05STEP-1 

600 PUTSPRITEO, (45, MM) ,15,0 

610 NEXTMM 

620 FORMM-5T070 

630 PUTSPRITEO, (45, MM) ,15,0 

640 NEXTMM 

650 D$~INKEY$: IFD$< >" " THEN COLOR 15, 
4,4:END 
660 G0T0590 

670 DATAO, O, O, 6, 31,63, 63,127,127, 63 
, 63, 31,6, O, O, O, O, O, O, 0,128,192,192, 
224, 224,192,192,128, O, O, O, O 


Tak til Tony fra Johnny B 
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PC-BIB indholdsliste pr 20/11-1988. 
Disk #1 

Striker, et fedt helikopterspil i 
stil med scramble, du sendes på 4 
opgaver på fjendens territorium. 

Disk #2 

FYFY disk indeholdende uartige his¬ 
torier + NIPPLES og selvfølgelig en 
finger der ligger resident i din PC 
og kommer frem i tide og utide. 

Disk #3 

Bombsquad, finder BOMBER i public 
domaine software. 

ART, tegneprogram til EGA 
Orbit, Satellit. 

Disk #4 

TTT, Yahtzee, WILLY the worm, 
Wildcat : olieboring i USA 

Disk #5 

Disktest, Autotest, Wizard, 

Fat load, Sub, Darth, Bandoc 
Faker : et spil for hackerne der 
ikke har råd til telefonregningen. 

Disk #6 

PC-LOCK : kodeord på din harddisk 
Disk #7 

Slideshow : 21 digitaliserede bil¬ 

leder i 2 farver. 

Disk #8 

TIMESAVER : Timemanager, glem ikke 
dine aftaler ! 

Disk #9 

Buyers Guide datafil, kræver at du 
har PC File III (ej Public Domaine) 

Disk #10 

LXT, Får din matrix-printer til at 
skrive med rigtig flotte tegnsæt. 

Disk #11 

LABEL, program der indeholder både 
database & tekstbehandling men hvis 
hovedformål er at udskrive LABELS. 

Disk #12 

En disk fyldt med musik demoer. 


Disk #13 

Diskuti 1 ities, fuld kontrol over 
dine disketter. 

Disk #14 

DASAN : Modemuti lity med 400 tlf nr 
på bulletin boards. Kræver at du 
har programmet PROCOMM (disk#45) 

Disk #15 

Dirty Disk. Endnu en FYFY disk, tag 
på Sex adventure. 

Disk #16 

Configurer dit eget BBS med denne 
diskette, masser af hjælp hele 
vejen igennem. 

Disk #17 

PYROTO: Modemprogram 

Disk #18 
CHEAP ASSEMBLER: 

8088 assembler med god beskrivelse. 
Disk #19/#20 

Ta le programmerne SAY 6. PC Parrot. 

SI : System info 

Disk #21 
Gamedisk 

3-Demon, Bricks, Fortune, Kong, 
Pango, PC-golf, Pitfall, Pyramid. 

Disk #22 

QMODEM : modemprogram 
Disk #23 

TYPEWRITER: lær at skrive på 

maskine. 

Disk #24 

Turbopascal rutiner. 3-D plot, 
worldmap, 3-d pyramid m.m. 

Disk #25 

FIDONET: Lav dit eget bulletin¬ 

board, her har du rutinerne 

Disk #26 

Masser af nyttige smårutiner 
Disk #27 

Dosleksikon, udførlig forklaring af 
alle dos-kommandoer. 2 disks 


k. 






1 
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Disk #28 

Family History System: Lav dit eget 
stamtræ. 

Disk #29 

Turbopascalrutiner. 

Disk #30 

Flere Turbopascalrutiner (ialt 58 
filer) 

Disk #31 

ESIE: Kunstig intelligens, expert 

system. 

Disk #32 

PROLOG : Alle tider programme¬ 

ringssprog med virkelig god doku¬ 
mentation på 76 K. 

Disk #33 

Turbopascal rutiner, endnu 57 filer 
Disk #34 

Arrg, endnu 15 Turbopascal rutiner 
Scroller, Fastwriter, Graphics m.m. 

Disk #35 

RTTY : RadioTeleTYpe for radioama¬ 
tøren med kortbølgestation og RTTY- 
modem. 

Disk #36 

Satte 1itpej1ing af Radioamatør sat¬ 
te 1 itter. 

Disk #37 

AIRNAV: Realistisk fly navigation, 
ps. ikke flysimulator ! 

STARFIND: for den aktive astronom. 
Disk #38 

Forth: programmeringssprog, 87K 

dokumentation. 

Disk #39 

Pervert, Sopwith, Strip, Pinball, 
Xwing, Timemanager. 

Disk #40 

MONOPOLY, Oktober måneds topsælger, 
PC-Matadortype spil. 

Disk #41 

Sailing : Sejlspil hvor du kommer 
ud for en masse spænding. 


Disk #42 

WINE : Med dette program i 

baghånden kan du servere den rette 
mad til den rette vin og omvendt. 

Du kan læse om de forskellige 
vindistrikter og vine. Wooouw !!! 


Disk #43 

DANCAD 3D : CAD program der kræver 
640 Kram. 

Disk #44 

KAPER : et Dansk spil i topklasse, 
du er her en sørøver med udsigt til 
at blive adlet og få komtessen i 
enden. 

Disk #45 

PROCOMM : modemprogram 
Disk #46 

KERMIT : Terminalprogram. 


Disk #47 

PC-MUSICIAN 

En masse lækker musik. 

Da Henrik Larsen har solgt sin PC 
og købt sig en SVI-738 kan han ikke 
mere tage sig af PC-BIB og derfor 
har jeg overtaget kassen med disk¬ 
etter . 

Der er kommet 3 nye disketter hjem 
og en er forsvundet idet jeg har 
samlet #19 & #20 til en. Læs 

nedenfor hvordan du kan være med 
til at øge antallet af PB software. 

Prisen er 35 Kr/stk alt inklusiv. 

Et evt. overskud går til fremtidige 
indkøb af Public Domaine software. 


Hvis du har noget Public Domaine 
software som du tror andre kan have 
glæde af så har du muligheden for 
at erhverve dig en GRATIS diskette 
fra biblioteket pr fyldt du sender 
os + selvfølgelig din egen tilbage. 



PC-BIB 

Henrik Gilvad 
Solrød Byvej 41 
DK-2680 Solrød Strand 
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Jeg ville egentligt have vist jer 
hvordan man laver SPRITES på Xpress 
16 men desværre gik det ikke helt 
let som det skulle så i må denne 
gang nøjes med et eksempel på 
hvordan man kan tegne linier bare 
ved at skrive til nogen porte. 

Okay, man kan da godt bruge LINE 
kommandoen istedet for men jeg 
syntes lige jeg ville prøve at 
bruge nogen OUT kommandoer. 

Hvis du kigger omme bag i en af de 
mange manualer du fik med til din 
Xpress 16, (Den lille blå) kan du 
se at der står en liste over 
portnumrene der bruges af maskinen. 
Et stykke nede står der MVDP. 

3C0 MVDP PORT #0 
3C1 MVDP PORT #1 
3C2 MVDP PORT #2 
3C3 MVDP PORT #3 

Det er port #1 som jeg bruger i 
programmet. MVDP'en har nogen 
registre som man kan skrive til, og 
det gør man på følgende måde: 

OUT(&h3Cl),data:OUT(&h3Cl),128+reg 

Lad endelig vær med at skrive til 
nogen registre hvis du ikke er HELT 
sikker på hvad du laver !!! 

Når du afprøver programmet kan du 
se at de første linier der tegnes 
knækker på en helt dum måde. Dette 
skyldes at Short-side er længere 
end Long-side, for så går der kuk i 
MVDP'ens regneri. 

Programmet er et ret useriøst for¬ 
søg på at varme op til at lave 
nogen af de SPRITEs som manualen 
faktisk har lovet køberen at han 
kan lave. Jeg gætter på at alle jer 
med XPRESS 16 kun bruger MVDP'en 
som printerbuffer eller RAM-disk, 
det er dette som jeg gerne vil 
prøve på at ændre lidt. 


10 REM 

20 REM X'press 16 demo 
30 REM By H.G. 

40 REM MVDP-chip 
50 REM LINE command 
60 REM 
70 SCREEN 5 

80 FOR X=0 TO 255 STEP 8 
90 VD=36:A=20:GOSUB 230 'X—coor. 

100 VD=37:A=0:GOSUB 230 

110 VD=38:A=X/2:GOSUB 230 ’Y-coor. 

120 VD=39:A=0:GOSUB 230 

130 VD=40:A=X:GOSUB 230'Short step 

140 VD=41:A=0:GOSUB 230 

150 VD=42:A=40:GOSUB 230'Long step 

160 VD=43:A=0:GOSUB 230 

170 VD=44:A=12:GOSUB 230 'Color 

180 VD=45:A=0:GOSUB 230 'ARG 

190 VD=46:A=112:GOSUB 230'Line comm 

and 

200 NEXT X 
210 BEEP 
220 GOTO 220 

230 OUT &H3C1,A:OUT &H3C1,VD+128:RE 
TURN 

240 ' ARG-ument 
250 ' 

260 'bit 76543 210 

270 'ARG: 0 - mxd - diy dix — Maj 
280 1 

290 'MXD: Destination Memory select 
300 ' 0=--128 KVram, l=Expansion 

310 'DIX: 0=right, l=left 
320 'DIY: 0=Down, l=Up 
330 'MAJ: 0: X =Long Y=Short side 
340 1 1: Y =Long X=Short side 
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Fra Mogens Petersen i Sabro har 
vi modtaget følgende brev: 

Jeg er forholdsvis nybegynder på 
printer (plotter Prn 41) - har i 
nogle programmer der umiddelbart 
kan køre på en sådan? 

Kan i oplyse mig om hvordan ”dip 
switches” virker og hvad de kan 
bruges til? 

Når LLIST komandoen anvendes ; og 
programmet fylder mere end en A4 
side, fortsætter plotteren med at 
køre. Hvorledes får jeg den til at 
stoppe automatisk eller køre videre 
på en ny side? 

Dette er mange spørgsmål til 
plotteren, håber I kan hjælpe eller 
henvise til læsestof der kan løse 
ovenstående. 


Jo vist kan vi hjælpe. For at 
starte fra en ende af så er der 
ikke nogle programmer i BIB der er 
til plotter, så spørgsmålet må gå 
videre til medlemmerne, der hellere 
end gerne må sende nogle til BIB. 

”DIP switches” har den virkning 
at man kan indstille visse funkti¬ 
oner på printeren/plotteren således 
at disse funktioner er i kraft når 
apparatet tændes. For eks. har min 
printer forskellige landes tegnsæt, 
og her kan man med DIP switch'ene 
indstille hvilket tegsæt der skal 
gælde når printeren tændes. Hvilke 
funktioner din plotters DIP switch¬ 
es har må du se i manualen. 

Dit sidste spørgsmål vedrører et 
alment problem både for printer- & 
plotterfolk der benytter enkeltark. 
Der er ikke nogen direkte løsning, 
så jeg måtte igang med at lave en 
lille mc-rutine der kunne klare 
det. Rutinen virker simpelt hen på 
den måde at den tæller antallet af 
linier der udprintes, og hver gang 
den når et bestemt antal, stopper 
den udskrivningen og venter på at 
man trykker en tast. Rutinen har 
jeg lagt oppe i systemvariablerne, 


nærmere bestemt i musik-bufferen. 
Dette resultere i at rutinen både 
virker i basic og i DOS. I og med 
at rutinen ligger i musik-bufferen 
må man ikke bruge ”PLAY” samtidigt 
med (man vil få en "SYNTAX ERROR”). 
Men nu til programmet. Man starter 
med at taste basic-programmet ind 
og køre det. Hvis så fremt i fald 
man ingen fejl har lavet vil der 
bliver gemt en fil på bånd/disk 
kaldet "PRNPAU”. Når man har brug 
for det skriver man BLOAD”PRNPAU”,R 
og rutinen klarer resten selv. Det 
eneste man kan have brug for er at 
nulstille tælleren der tæller an¬ 
tallet af udprintede linier. Dette 
sker automatisk hver gang man skri¬ 
ver LLIST, men kan gøres manuelt 
med A=USR9(0). 


Kim 



10 'Print Pause 
20 RESTORE 120:J=0 
30 FORI=&HF975TO&HF9D8 
40 READX$:POKEI,VAL(”&H"+X$) 

50 J=J+VAL(”&H”+X$):NEXTI 

60 IFJ< >1 1937THENPRINT"DATAFEJL!”:S 

TOP 


70 A=60 'Antal li 
kan ændr 
80 B=80 'Antal te 
kan ændr 
90 P0KE&HF9BA,A-l 
100 PRINT”Gør dis 
ve og tryken tast 


110 

BSAVE"PRNPAU” 

120 

t 


130 

DATA 

F 3 , 2 1 , C 5 

140 

DATA 

FF,11,99 

150 

DATA 

23,72,21 

160 

DATA 

21,B6,FF 

170 

DATA 

23,73,23 

180 

DATA 

FE,00,28 

190 

DATA 

F9,32,D8 

200 

DATA 

E5,FE,0A 

210 

DATA 

36,00,2B 

220 

DATA 

34,18,14 

230 

DATA 

D8,F9,7E 

240 

DATA 

18,05,36 

250 

DATA 

F1 , C9,00 


nier per side, 
es efter behov 
gn per linje, 
es efter behov 
:P0KE&HF9C9,B-l 
k/bånd klar til sa 
!":A$=INPUT$(1) 

,&HF975,&HF9D8 


,FF, 
,F9, 
, AC, 
, 11 , 
, 7 2 , 
,08, 
,F9, 
, 20 , 
,7E, 
, FE, 
, FE, 
,00 , 
,00 


36,F1 
36,C3 
F3,73 
AB, F9 
F5,3A 
3E, 00 
F1 ,C9 
0E, 2 1 
FE, 3B 
0E, 38 
4F, 28 
CD, 9F 


,21,89 
,23,73 
,23,72 
, 36 , C3 
, 16 ,F4 
, 32 , D7 
,F3,F5 
,D8,F9 
,28,12 
, 10,21 
, E9,34 
,00,El 
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1 'Denne lille rutine 

2 'giver dig kursiv skrift 

3 'på skrærmen kan 

4 'kombineres med 

5 'fed skriften 

6 'af Johnny B 

7 1 

9 'Maskinkoden 

10 DATA 2A,24,F9,11,7,1,19,11,FO,7, 
6,4,05,13,23,00,21 

20 DATA 4A,0,FD,2A,CO,FC,CD,59,1,CB 
,3F,DD,21,4D,0,FD 

30 DATA 2A,C0,FC,CD,59,1,C1,10,E2,2 
3,23,23,23,1B,1B,1B,1B,7A,B3,20,D4, 
C9 
40 ' 

1000 'LÆGGER MASKINKODEN På PLADS 
1010 FORA“ s &HDOOOTO&HD036 : READX$ 

1020 POKEA,VAL("&H"+X$):NEXT 
1030 1 

1040 'GEMMER MASKINKODEN SOM BINÆR 
FIL 

1050 BSAVE"KURSIV.BIN",&HD000,&HD03 
6 

1060 PRINT"DEFUSR“&HDOQO:A-USR(0) 


1 'Denne lille rutine 

2 'giver dig fed skrift 

3 'på skrærmen kan 

4 'kombineres med 

5 'kursiv skriften 

6 'af Johnny B 

y , 

9 'Maskinkoden 

10 DATA 2A,24,F9,1,F8,7,C5,DD,21,4A 
,0,FD,2A,CO,FC,CD,59 

20 DATA 1,57,CB,2F,B2,DD,21,4D,0,FD 
,2A,CO,FC,CD,59,1 
30 DATA Cl,23,B,78,Bl,20,DE,C9 
40 ' 

1000 'LÆGGER MASKINKODEN På PLADS 
1010 FORA-&HD600TOSiHD62B: READX$ 

1020 POKEA,VAL("&H"+X$):NEXT 
1030 ' 

1040 'GEMMER MASKINKODEN SOM BINÆR 
FIL 

1050 BSAVE"FAT-BAS,BIN",&HD600,&HD6 

28 

1060 PRINT"DEFUSR-&HD600:A-USR(0) 


begge binære filer skal du 
bloade,r 

hver gang du gentager spøgen 
bl ir skiften endnu tykkere 
eller skævere 
hej Johnny B 



1 'Hermed en fed... skrift rutine 

3 'prg opretter en Fatdos.com fil 

4 'Prg er lavet af Stanislav Deja 

5 'Tyskland. 

6 'Public Domain sålænge copyright 

7 'findes i programmet 

8 'Hej Johnny B 

9 1 

10 DATA 2A,24,F9,11,8,1,19,1,D8,4,C 
5,DD,21,4A,0,FD 

20 DATA 2A,CO,FC,DF,57,CB,2F,B2,DD, 
21,4D,0,FD,2A,CO,FC 
30 DATA DF,C1,23,B,78,B1,20,E2,E,9, 
11,31,1,CD,5,0 

40 DATA C9,44,69,63,6B,65,72,20,5A, 

2D,53,61,74,7A,20,69 

50 DATA 6D,20,4D,53,58,44,4F,53,2E, 

20,28,63,29,20,53,74 

60 DATA 2E,44,65,6A,61,20,26,20,47, 

2E,50,61,62,73,74,24 

70 DATA FF,FF,FF,EF,FF,FF,EF,EF,FF, 

FF FF FF EF DF FF FF 

80'DATA 4F,FF,DF,FF,FF,FF,7F,FF,FF, 

FF,EF,FF,FF,FF,FF,FF 

90 1 

100 'ÅBNER EN DATA FIL TIL DOS ■= *. 
COM 

110 OPEN"FAT-DOS.COM"FOROUTPUTAS#l 
120 FORI-OTO &H7F 
130 READX$ 

140 X=VAL("&H"+X$) 

150 PRINT#1,CHR$(X); 

160 NEXTI 

170 PRINT"færdig:Fat-dos.com oprett 
et 

180 CLOSE 
190 ' 

200 'OBS copyright findes 
210 'i maskinkoden 
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KASSERER PREBEN LUND 
HYLDESPMLDET 
TØMMERSTRÆDET 19 
2620 ALBERTSLUND 
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Liste a-f programtitler 
i SVIBIB : 


□ © Q S 


SVI BIB er KUN til SVI 318-328 

SVIBIBS’s POSTGIRONR. er; 

4077385 

Bestilling a-f programmer gøres på 
postgiro hvorpå der skrives hvii'ke 
p r o g r am m e r d u. ø n s k e r , s arn t o rn d u v i 1 
h av e disi< eller b ånd . 

Husk også at skrive din egen adr. 
tydel i gt helst BLQKBOSSIfiyEB^ 


PRISER 

Bånd - 25kr. 

5.25" Disk - 25kr. 

Pris pr, program - i O k r, 

Pris pr. progr ampakke. - i5kr. 

LI d 1 i s t n i n gaf p r o g r am - Sir. 


Programpakkerne er lavet på den 
m åd e a t rn an 1 oad e r alle 
programmerne ind på en gang , og 
kan så vælge ved hjælp a-f en meny 
h v i 1 k e t pr ogr am rnan ø n s i:e r- at kø r e 
derefter kan man stoppe og vende 
til bage ti 1 menyen dvs .ovs. 

HUSK når I bestiller programpakker 
at skrive hvilken katarcgi I 

ønsker det pågældende nr. fra. 

Programmerne besti 11 es hos; 


Per Under lien 
Rytterhusene 44 
2620 Albertslund 
GIRONR. 4077385 

Programmer der ønskes optaget i 
S VIBIB s k e r p å s arn rn e ad r . 

Det er jo sådan at vi NU GIVER 
2 bånd eI 1e r 
5 5.25" disk 

For de programmer der optages- i 
SVI BIB. 

Hilsen Per- 


Nyttige programmer : 

Database , Editor- , Hushold ,Matte, 
Mc scroll , Rarndis , Rentereg , 

Rul leteks , Screen Rig , Sdump.rnc, 
Sorter , Sprite ed , Sprog , 

Tegner , Talkback , Taperut , Tips 
Kalender , Supertegn , Periode 

Spil : 

Aladdin , Bovla, Bjerg, Darts, 
Death, Diktator, Frans, Hel 1, 
Kalaha, Skyd nu. Oil 

Spil pakker : 

; Male , P y r arn ide , L ab y r a n t 
; Pusle , Attack , Roulette 
; Flight , Sur , War' 

; Mons , Hopper , Star 
; Moon , Myre , Slange 
: Robot , Pengo , Snowball 
; Danmark , Fragger 
; Sky11epro , Lemona 

pakker : 

: Rock musik 9 numre 
; Rock musik 9 numre 
: Musik 9 numre 
: Lyd Kirn , Sound Kim , Orgel 


pakker : 

: Rio , Lys , Ghost , Børge 
Symt ri , Grafik 


Kun til disk : 

Budgetpro. , Dbase i no.i , Grafen 
Tegnepro. , Te 1efonpro. 



Nr. 

1 

Nr 

9 

Nr . 

3 

Nr. 

4 

Mr . 

5 

Nr . 

6 

Jy j t*. 

—> 

Nr . 

Q 

Musik 

Mr-. 

i 

Nr. 

2 

Nr. 

3 

Nr. 

4 


Andet 

Nr. i 
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1 ' Hej fans 

2 'hermed et lille musikstykke 

3 'det er faktisk Johnny B live 

4 'det er optaget fra Midi keyboard 

5 'til midirecorder Yamaha derefter 

6 'converteret til Composer med 

7 'noder og derefter til basic 

8 'play med et Japansk program 

9 'det spiller m&ske ikke helt 

10 'fint men dog OK når man tænker 

11 'på alle de konverteringer 

12 ' 

13 'Altså nu ti 1: 

14 'Se den lille kattekilling 

15 ' 

16 'Hej Johnny B 

17 ' 

1000 PLAY "R2.E16.R16.E16.","R2.E16 
.R16.E16.","R2.E16.R16.E16." 

1010 PLAY "R16.L32ER16.E8.L8GL32ER1 
6.ER16.L8EG","R16.L32ER16.E8.L8GL32 
ER16.ER16.L8EG","R16.L32ER16.E8.L8G 
L32ER16.ER16.L8EG" 

1020 PLAY "L32ER16.L8CEL2DR8","L32E 
R16.L8CEL2DR8","L32ER16.L8CEL2DR8" 
1030 PLAY "L32DR8DR16.DR8L8DFL32DR8 
DR8","L32DR8DR16.DR8L8DFL32DR8DR8", 
"L32DR8DR16.DR8L8DFL32DR8DR8" 

1040 PLAY "L8DCDEDL2C","L8DCDEDL2C" 

,"L8DCDEDL2C" 

1050 PLAY "R8.L32ER16.ER16.ER16.L8E 
G","R8.L32ER16.ER16.ER16.L8EG","R8. 
L32ER16.ER16.ER16.L8EG" 

1060 PLAY "L32ER8ER16.L8EGECEL2D"," 
L32ER8ER16.L8EGECEL2D","L32ER8ER16. 
L8EGECEL2D" 

1070 PLAY "R8L32DR16.DR16.DR16.L8D" 

,"R8L32DR16.DR16.DR16.L8D","R8L32DR 
16.DR16.DR16.L8D" 

1080 PLAY "FL32DR16,DR16.DR16.L8CDE 
D","FL32DR16.DR16.DR16.L8CDED","FL3 
2DR16.DR16.DR16.LSCDED" 

1090 PLAY "L2CR8.L32CR8.03GR16. " , "L 
2CR8.L32CR8.03GR16.","L2CR8.L32CR8. 
03GR16," 

1100 PLAY "GL4G#L32GR8.GR16.L16AL32 
BR804CR32","GL4G#L32GR8.GR16.L16AL3 
2BR804CR32","GL4G#L32GR8.GR16.L16AL 
32BR804CR32" 

1110 PLAY "" 


10 'HERMED ET MUSIKSTYKKE IGEN 
20 'DET ER LOUISRAG INDTASTET 
30 'AF RUNI DAM I COMPOSER 
40 'OG CONVERTERET AF MIG OG 
50 'MIT JAPANSKE PROGRAM TIL 
60 'BASIC PLAY 

70 'OBS HVIS NOGEN HAR NOGLE 
80 'GODE SOUND KOMMANDOER 
90 'INSTRUMENTLIGNENDE SA VIL 
100 'JEG GERNE HØRE DEROM 
110 ’ 

120 GOD FORNØJELSE 
130 JOHNNY B MUSIK 
140 ' 

1000 PLAY "S13M10000T80V11L1605GL80 
6CL1605AGEL8D","S13M10000V11T80L160 
3GL804CL1603AGEL8D","T80R2" 

1010 PLAY "L16CL8EL16DC04BL8A","L16 
CL8EL16DC02BL8A","R2" 

1020 PLAY "L16GL8AL16A#B05CDE","L16 
GL8AL16A#B03CDE","R2" 

1030 PLAY "L8FR8V13GV9L16GA","L8FR8 
V13GR8","R4S13M10000V11L803GR8" 

1040 PLAY "BGABBL8BL16B","V9D04G02G 
04G","04DR803GR8" 

1050 PLAY "BDEBBFED","03D04G02G04G" 
,"04DR803GR8" 

1060 PLAY "EL8AL16EL8AL1604GA","03C 
04E02G04E","04CR803GR8" 

1070 PLAY "05E04GA05EEC04BA","03C04 
E03ED#","04CR803ED#" 

1080 PLAY "BL805GL1604BL805GL1604GA 
","D04G02G04G","04DR803GR8" 

1090 PLAY "05F04GA05FF04BAG","03D04 
G02G04G","04DR803GR8" 

1100 PLAY "AL805EL1604GGA05E04Å","O 
3C04E02G04E","04CR803GR8" 

1110 PLAY "05E04A05CEL8EL16GA","03C 
04E03ED#","04CR803ED#" 

1120 PLAY "BGABBL8BL16B","D04G02G04 
G","04DR803GR8" 

1130 PLAY "BDEBBFED","03D04G02G04G" 
,"04DR803GR8" 

1140 PLAY "EL8AL16EL8AL1604GA","03C 
04E02G04E"."04CR803GR8" 

1150 PLAY "05E04GA05EEC04BA#","03CO 
4E03ED","04CR803ED" 

1160 PLAY "AG#A05C#C#EL8A","C#04E02 
A04G","04C#R803AR8" 
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1170 PLAY "L16GFEFFCL8D","03D04F03A 
G#","04DR803ÅG#" 

1180 PLAY "L16ECDEE04BL805D", M GF#AB 
","GF#AB" 

1190 PLAY "L4CL8CL16GA","04CL1603BA 
AGL8E","04CL1603BAAGL8E" 

1200 PLAY "BGABBL8BL16B","D04G02G04 
G","04DR803GR8" 

1210 PLAY "BDEBBFED","03D04G02G04G" 
"04DR803GR8 M 

1220 PLAY "EL8AL16EL8AL1604GA","03C 
04E02G04E","04CR803GR8" 

1230 PLAY "05E04GA05EEC04BA","03C04 
E03ED#","04CR803ED#" 

1240 PLAY "BL805GL1604BL805GL1604GA 
" , "D04G02G04G" , "04DR803GR8 11 
1250 PLAY "05F04GA05FF04BAG","03D04 
G02G04G","04DR803GR8" 

1260 PLAY "AL805EL1604GGA05E04A","O 
3C04E02G04E","04CR803GR8" 

1270 PLAY "05E04A05CEL8EL16GA","03C 
04E03ED#","04CR803ED#" 

1280 PLAY "BGABBL8BL16B","D04G02G04 
G","04DR803GR8" 

1290 PLAY "BDEBBFED","03D04G02G04G" 
,"04DR803GR8" 

1300 PLAY "EL8AL16EL8AL1604GA","03C 
04E02G04E","04CR803GR8" 

1310 PLAY "05E04GA05EEC04BA#","03C0 
4E03ED","04CR803ED" 

1320 PLAY "AG#A05C#C#EL8A","C#04E02 
A04G","04C#R803AR8" 

1330 PLAY "L16GFEFFCL8D","03D04F03A 
G#","04DR803AG#" 

1340 PLAY "L16ECDEE04BL805D","GF#AB 
","GF#AB" 

1350 PLAY "CL16GGL8GG","04CR8R4","O 
4CR8R4 M 

1360 PLAY "L16GGGGGGL8G","03DB02G03 
B" ,"DR803GR8" 

1370 PLAY "L16GGGGGGL8G","D04F02G04 
F","04DR803GR8" 

1380 PLAY "L1606EG05B06CEQ5F#G06C", 
"L3203CG04GGR8R4","V1104CR8R4" 

1390 PLAY "05EFF#GAGEC","R2","R2" 
1400 PLAY "L804B05G04A#05G","L803D0 
4F03C#04E","V7DR8C#R8" 

1410 PLAY "R16L1604B05DFAGFD","03D0 
4F02G04F","DR803GR8" 

1420 PLAY "R8L3204G05CEGR804G05CEG" 
,"L4C03B","V11L404C03B" 

1430 PLAY "R8L16GEAEL8G","AG","AG" 
1440 PLAY "L16GGGGGGL8G","L8DB02G03 
B","V7L804DR803GR8" 


1450 PLAY "L16GGGGGGL8G","D04F02G04 
F","04DR803GR8" 

1460 PLAY "L1606EG05B06CE05F#G06C", 
"L3203CG04GGR8R4","V1104CR8R4" 

1470 PLAY "05EFF#GAGEC","R2","R2" 
1480 PLAY "R8L806C05BA","R8L803F#F# 
F#","R803F#F#F#" 

1490 PLAY "R16L16GF#GAGEC","G04E03E 
04E","V7GR804ER8" 

1500 PLAY "R1604GF#GG#AA#B","03DB02 
G03B","DR803GR8" 

1510 PLAY "L805CL16AGEC04BA","04CR4 
R8","04CR8R4" 

1520 PLAY "05GGGGGGL8G","03DB02G03B 
","DR803GR8" 

1530 PLAY "L16GGGGGGL8G","D04F02G04 
F","04DR803GR8" 

1540 PLAY "L1606EG05B06CE05F#G06C", 
"L3203CG04GGR8R4","V1104CR8R4" 

1550 PLAY "05EFF#GAGEC","R2","R2" 
1560 PLAY "L804B05G04A#05G","L803D0 
4F03C#04E","V7DR8C#R8" 

1570 PLAY "R16L1604B05DFAGFD","03D0 
4F02G04F","DR803GR8" 

1580 PLAY "R8L3204G05CEGR804G05CEG" 
,"L4C03B","V11L404C03B" 

1590 PLAY "R8L16GEAEL8G","AG","AG" 
1600 PLAY "L16GGGGGGL8G","L8DB02G03 
B","V7L804DR803GR8" 

1610 PLAY "L16GGGGGGL8G","D04F02G04 
F","04DR803GR8" 

1620 PLAY "L1606EG05B06CE05F#G06C", 
"L3203CG04GGR8R4","V1104CR8R4" 

1630 PLAY "05EFF#GAGEC","R2","R2" 
1640 PLAY "R8L806C05BA","R8L803F#F# 
F#","R803F#F#F#" 

1650 PLAY "R16L16GF#GAGEC","G04E03E 
04E","V7GR804ER8" 

1660 PLAY "R1604GF#GG#AA#B","03DB02 
G03B","DR803GR8" 

1670 PLAY "L405CL16C","04C03GCR8"," 
04C03GCR8" 

1680 PLAY 
1690 PLAY "" 
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KIM bragte i sidste nummer et 
program der kunne morse hvad man 
skrev samt skrive hvad man morsede 
ved hjælp af computeren. 


ved at bestikke KIM med 10 dKr. 
plus prisen for et lagringsmide/, 
se mere om dette i MSX-bib spalten. 


Da Jeg så hans program fik Jeg et 
mindre hjertestop fordi Jeg selv 
lige, efter kun 3 års bearbejdelse, 
havde færdiggjort et program magen 
til. ARRRRRG !!! 

Som regel når Jeg får et 
raserianfald sker der det at mine 
hænder fatter tastaturet og skriver 
KILL. Om dette er min psykologiske 
skygges i de der kommer frem og 
af reagerer eller om det er et 
forsøg på at skaffe bedre p/ads på 
mine disketter vides ikke. 

OK, nu da Jeg havde slettet mit 
eget program kunne Jeg Jo passende 
taste Kims ind og se hvad det duede 
til. Til min forbavselse var lyden 
slet ikke hvad mine sarte ører 
kalder morses ignaI er, men bare 
nogen tilfældige blip blot uden den 
rytme og takt som morse normalt 
har. Denne mindre fatase fik Jeg 
hurtigt ændret men ti! min gru 
indeholdt programmet endnu en fejl. 

da da da dahh 

Denne gang var det dog ikke værre 
end at Jeg kun behøvede 9 timens 
arbejde før fejlen var rettet. 
Fejlen var at punktummet '. ' var 
forkert. 

Jeg kontaktede KIM per telefon og 
kom allerede igennem i 5'te forsøg. 
Han var helt fra den J hvilken 
katastrofe, et ' der var forkert. 
Kim tog straks ind til Morse insti¬ 
tuttets 5. afdeling og fandt en bog 
omhandlende dette emne. 

Kim kontaktede mig derpå og kunne 
fortælle at Jeg havde ret, et 
punktum var ikke di di di di di dit 
men di dah di dah di dah. 

Nu er fejlen rettet og i kan få 
opdateret Jeres version af Kims 
fantastiske Morseprogram ved at 
taste følgende linier ind, eller 


30 Dim A$(127),B$(255):A$(1) 

4 O HA=10 

100 If Strig(O)ThenSound8,1 O:5=5+1: 

R=0 : gotol00 
105 Sound 8, O 

130 If 5<Ha ThenA$=A$+ ”0" e/se /!$= 
/!$+”i ’’ 

180 Data E, T,I,A,N,M,S,U,R,W,D,K,G 
,O,H, V,F,,L,Æ,P,J,B,X,C, Y,Z,Q,0 
190 Data *+7,1,39,2,35,3,33,^,32,5, 
1+8,6,56,7,60,8,62,9.63,0,85, . , 
115, ", ",76, ?, *+5, Å , 97, - 
280 PrintC $"; : ForT= s 2ToLen(B$ (Ase 
(C$))) : ForR=lToHa*3:Next:I FMid$ 
(B$(Asc(C$)), T,1)="0"Then?”. : 

Sound8,1 O:ForPa=lToHa*2:Next Pa 
\5ound8 , O :NextE lse?”__"; :5ound8 
,10:ForPa=l ToHa*8:NextPa:Sound 
8,0:Next 

P. s. 

Som nogen måske har bemærket er der 
flere ændringer, bla. har Jeg lavet 
Æ,0,Å og ændret på prik/streg 
forskellen så den lyder mere rigtig 
Jeg har også sat hastigheden op til 
en grænse hvor det ikke mere BARE 
er prikker & streger men hvor 
morsetegnene efter et stykke tids 
træning bliver direkte omsat af 
hjernen til tegn. 

Jeg har afprøvet programmet på min 
Kortbølgeradio ved at forbinde en 
RTTY-konverter til Joystick porten. 
Dette virkede ganske godt på de 
fleste Radioamatørstationer. 

løjeblikket kører denne opstilling 
som en Morsemonitor så besøgende 
kan læse på skærmen hvad Jeg 
modtager og hvad Jeg sender. 

Det største problem er computer¬ 
stø Jen der gør at RTTY-konverteren 
kun virker på kraftige stationer. 

H.G. The Morse Master. 
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For nogen tid siden var der en 
udsendelse i DR i serien Hvælv, der 
omhandlede kaos. Kaos vs. orden er 
et mærkeligt fænomen man har fundet 
i matematikken. 

Af: Kim Andersen 

For at illustrere hvad det går 
ud på har jeg lavet et lille pro¬ 
gram der tegner det såkaldte Figen¬ 
træ (ham der "opfandt” det, var en 
tysker der hed Figenbaum, men det 
ligner faktisk et træ). Figentræet 
udmærker sig ved at det af ufor¬ 
klarlige årsager, veksler mellem 
kaos og orden. Hvilket matematisk 
princip det gøre efter vil jeg ikke 
begynde at udrede, men prøv at 
taste det ind og kig. Man vil ople¬ 
ve at der i træet er nogle "vindu¬ 
er”, hvor der hele træet gentager 
sig. Øverst i træet, er det største 
vindue, hvori træet er at finde tre 
gange, man kalder det da et "tre¬ 
vindue”. I programmet har jeg lavet 
en forstørrelsesfunktion, hvor man 
med to små streger styret af cur- 
sorpilene op og ned og space, kan 
vælge et stykke ud, der skal for¬ 
størres vertikalt. Man vil da op¬ 
dage at der er et uendeligt antal 
"vinduer” igennem træet. 

Vil man have et flottere træ, 
kan man ændre på parameteren der 
angiver antal punkter pr. linie. 

At træet bliver tegnet fra oven 
af, skyldes at det da bliver flot¬ 
tere (hvilket igen beror på det 
matematiske princip det kører på). 

Det andet lille program, kaldet 
snefnug, viser dannelsen af en 
fraktal kurve ud fra et ganske be¬ 
stemt princip. Programmet kører af 
sig selv. 


10 '...Figen 

20 '...Kim Andersen 1988 
30 DEFSNG A-Z 
40 SCREEN2 

50 SPRITE$(0)=CHR$(255):SPRITE$(1)= 
CHR$(255) 

60 P=50 'Antal punkter pr. linie 


70 YS=2.9 'Startkoordinat p y-akse 
80 YE=4 'SIutkoordinat p y-akse 
90 XS=0 'Startkoordinat p x-akse 
100 XE=1 'SIutkoordinat p x-akse 
110 DY=(YE-YS)/192:Y=YE:B=0:X=.1:D= 
17 

120 DEFFNA(X)=Y*X#(1-X) 

130 F0RT=1 TOD:X=FNA(X):NEXT 

140 F0RT=1T0P:X=FNA(X):PSET(256*<(X 

-XS)/(XE-XS)),B),15:NEXT 

150 B=B+1:Y=Y-DY 

160 IFY< = YSTHEN190 

170 IFINKEY$=”s"THEN190 

180 GOT0130 

190 Y1 = — 1:SP=1:Y=0:GOSUB220:Yl = Y 
200 SP=0:Y=191:FORT=OT0200:NEXT:GOS 
UB220 

210 PUTSPRITE0, (0,209) ,0,0:PUTSPRIT 
El,(0,209),0,0:YE=YE-Y1#DY:YS=YS+(1 
91-Y)*DY:CLS:G0T0110 
220 D=STICK(0) 

230 IFD=1ANDY>0ANDY>Y1+1THENY=Y-1 
240 IFD=5ANDY<191THENY=Y+1 
250 PUTSPRITESP,(124,Y-l),14,SP 
260 IFSTRIG(0)THENRETURN 
270 GOTO220 


10 '...Snefnug 
20 ' 

30 TI=40:ONINTERVAL=62GOSUB190:INTE 
RVALON 

40 CLS:PRINT"Udregni nger foretages! 

50 DIMA(5) ,X(1024) ,Y(1024) 

60 PI=ATN(1)#4:A(1)=0:A(2)=PI/3:A<3 
)=-2*A(2):A(4)=A(2) 

70 FORT=-PI-2*PI/3TOPI+2*PI/3STEPPI 
/3:C(FIX(T)+5)=C0S(T)*(256/243):S(F 
IX<T)+5>=SIN(T)*(256/243):NEXT 
80 T=1:X(0)=0:Y(0)=133 
90 F0RF5=1T04:V=V+A(F5) 

100 F0RF4=1T04:V=V+A(F4) 

110 F0RF3=1T04:V=V+A < F3) 

120 F0RF2=1T04:V=V+A(F2) 

130 FORF1=1T04:V=V+A(F1) 

140 X(T)=X(T-l)+C(FIX(V)+5):Y(T)=Y( 

T-1)-S(FIX(V)+5):T=T+1 

150 NEXT Fl,F2,F3,F4,F5 

160 INTERVALOFF:SCREEN2 

170 FORA=5TO-4STEP-l:GOSUB180:F0RR= 

0TO500:NEXTR,A:G0T0170 

180 CLS:PSET(0,133) ,15: F0RT=4 / 'ABS (A 

)T01024STEP4"ABS(A):LINE-(X(T),Y(T> 

),15:NEXT:RETURN 

190 L0CATE17,10:PRINTUSING"##”; TI: T 
I=TI-1:RETURN 
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i Titel: Basket Master 

v" Firma: Dinamic 

^ Dette er en virkelig flot, og 
vild morsom basket-ball simulator. 
For at starte med 1oader-bi11edet, 
er det nok det mest humoristiske 
jeg nogen sinde har set. Man ser en 
rigtig basket-freak, der står med 
en bold på fingeren. Når spillet er 
kørt ind, kommer der pludselig liv 
i billedet: Bolden begynder at køre 
rundt på fingeren, spillereren vi¬ 
ser sine hvid-polerede tsender osv. 
Et virkelig originalt påfund. 

Selve spillet er heller ikke af 
lave. Kun en enkelt spiller er der 
på hvert hold, men det er al rige¬ 
ligt. Man kan drible, dunke, dreje 
rundt i luften osv., og laves der 
et godt angreb, bliver det gingivet 
i slowmotion i dobbelt størrelse. 

Skal man finde et enkelt punkt, 
at sætte en finger på, er det at 
der til de to spillere er brugt ka¬ 
rakterer og ikke sprites, som nok 
ville have været på sin plads, men 
det er en så lille detalje, at det 
ikke skal ødelægge noget som helst. 

Kvalitet:10 Grafik:9 Action:10 
Lyd:9 Betjening:9 Total:9,4 


Nu har året gået sin gang 
så kunne jeg jo synge en sang 
Men nu er det bare jeg glemmer 
at vi så mister alle medlemmer 
Jeg vil da undgå al klage og jammer 
og istedet anmelde nogle programmer 

Af: Kim Andersen 


Titel: Matchday II 
Firma: Ocean 

Her har Ocean forsøgt at banke 
et fodboldspil, og det har de gjort 
så forbandet irriterende at det 
endnu ikke er lykkedes mig at få 
scoret et ærligt mål. 

Man spiller to hold mod hinand¬ 
en, enten to spillere eller mod 
computeren. Man styrer konsekvent 
den mand, der er tættest på bolden, 
og computeren sørger for resten af 
spillerne. Aflevering foregår ved 
at man skyder i den retning manden 
peger, med en styrke der bestemmes 
af et særligt ”kickometer” (sådan 
kalder de det vist nok). 


Titel: Star Seeker 
Firma: Mirrorsoft 


Før spillet starter har man et 
hav af modifikations-muligheder. 
Man kan bl.a. bestemme om holdene 
skal spille deffensivt eller offen¬ 
sivt. 

En lille dybt hjerneforladt de¬ 
talje er at målmanden ikke kan tage 
bolden med hænderne, men kun parere 
den, hvilket kan gøre det fuldstæn¬ 
dig håbløst at redde et angreb. 

I sin helhed er spillet nogen¬ 
lunde rimeligt. Man føler dog nogen 
gange at det er som om at compute¬ 
ren bestemmer lidt for meget selv 
til at man har en fair chance for 
at vinde. 


Et enkelt ikke spille-program 
blev det også til denne gang. Star 
Seeker består af to selvstændige 
programmer. Det ene er et hvor man 
kan studere stjernehimmelen. Man 
indtaster hvor på Jorden man be¬ 
finder sig samt klokken i Green- 
wich-tid. Derefter får man stjerne¬ 
himmelen tegnet. Man har nu mulig¬ 
hed for at få oplysninger på be¬ 
stemte stjerner, eller man kan få 
stjernebillederne tegnet. 

I den anden del kan man få lej¬ 
lighed til at studere solsystemet, 
inklusiv Halleys Komet. I program¬ 
met kan man desuden få opgivet sol 


Kvalitet:8 Grafik:8 Action:9 °S måne °P“ °S nedgang samt få 

Lyd:9 Betjening:7 Total:8,2 tegnet månens form. 










Programmet har udprintningsfaci¬ 
litet til både MSX og Epson printer 
(applaus!), så man kan tage en 
lille lap papir med ud og få forøg¬ 
et sin viden inden for den astrono¬ 
miske front. 

En ulempe ved programmet er at 
det for størsteparten er skrevet i 
basic, så der er en del ventetid, 
når stjerne- og solsystemkort ud¬ 
regnes. 

Kvalitet:10 Grafik:8 Action:- 
Lyd:- Betjening:9 Total:9 

Titel: 30 MSX Hits 
Firma: Aackosoft 

Til slut har vi her en rigtig 
lækkerbidsken for joystick-fanati- 
keren: Ikke mindre end 30 gode 
gamle spil til MSX. Nu kunne man 
måske tro at når man kan få 30 spil 
til en pris på mindre end 10 kr. 
pr. stk. så er det meste nok en 
gang imbecilt basicprogrammering. 
Når man ser rækken af titler, bli¬ 
ver man imidlertid positivt over¬ 
rasket. Man finder så gode spil som 
Boulder Dash I og II, der hører til 
mine absolutte topfavoritter, samt 
Sorcery, der er et orgie af flot 
grafik. Et par musikprogrammer er 
der også blevet plads til. Det ene 
spiller Ravel 's Bolero, ved hjælp 
af et holkort, der glider hen over 
skærmen og bl.a. styrer en tromme¬ 
slager der sidder i hjørnet af 
skærmen. 

Som et sidste eksempel vil jeg 
nævne et lille strategi-spi1 ved 
navn Skooter. Man er her en lille 
sjover der skal skoote rundt på et 
antal baner og indsamle fire små 
ting på hver bane. Banerne er op¬ 
bygget som en slags labyrint hvor 
man til tider virkelig skal tænke 
sig om hvilken vej man går, udover 
af man skal tage sig i agt for de 
slemmer uhyre der ubarmhjertigt 
forfølger en. 

At give karakterer til denne 
spillepakke er selvsagt umuligt, 
men kvaliteten i forhold til prisen 
er lige til UG+. 

Game Over! 


to. 


.. ^ i 

o 

Ønsker du fortsat at være medlem 
af MSX Brugerklubben og dermed få 
tilsendt Syntax'en 10 gange om året 
bedes du gå på posthuset og betale 
kontingentet på 165,- dkr. Medlem¬ 
mer i de andre skandinaviske lande 
gøres opmærksom på at det vedlagte 
danske giro-kort også kan benyttes 
hos jer. 

Før du betaler, er det meget 
vigtigt at du sikrer dig at du har 
skrevet korrekt navn, adresse og 
telefonnr. Desuden beder vi dig at 
skrive følgende informationer på 
giro-kortet: 

- Alder. 

- Computertype, udstyr. 

- Hvor mange år har du haft com. ? 

- Hvad var bedst/værst i 1988? 

- Hvad synes du generalt om bladet? 

- Hvad skal evt. ændres ved bladet? 

- Ønsker og/eller ideer. 

- Hvad er dine specifikke interes¬ 
seområder (spil, nytteprog, prog¬ 
rammere selv osv.) 

Disse oplysninger vil vi bruge 
til at designe bladet, så det så 
vidt muligt vil dække alles inter¬ 
esser, ønsker og behov. 

Som sidste år foretager vi en 
lodtrækning om to gavekort på 250,- 
dkr gældende hos Datacraft, blandt 
de rettidige indbetalte kontingen¬ 
ter. Ønsker du at deltage skal du 
altså sørge for at besøge posthuset 
inden: 

>>> søndag d. 15 januar <<< 
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10 1 ***************************** 
20 ' * * 

30'* PETITE * 

40 1 * BOUTIQUE * 

50 1 * * 

60 ' ***************************** 
70 1 * * 

80'* SYNTAXEN * 

90 ' * * 

100 '* 1988 * 

110 '* * 
12 o '***************************** 
130 '* * 

140 '* UDVALGT AF: * 

150 '* * 

160 '* JOHNNY B MUSIK * 

170 '* * 

180 ****************************** 
190 : 

200 CLEAR 1000:ON STOP GOSUB 1010: 
STOP ON 

210 SCREEN 2:COLOR 2,1,1:VDP(1)=VD 
P (1)-64 

220 OPEN "GRP:" FOR OUTPUT AS #1 
230 PSET (70,91),1:PRINT #1,"Petit 
e boutique":CLOSE #1 

240 CIRCLE (127,95) ,70,8_5 

250 VDP(1)-VDP(1)+64 
260 DIM A$(69,3) 

270 A$ (0,1) ="T140":A$(0,2)■"T140": 
A$ (0,3) ="T140" 

280 A$(1,1)-"V805L8DEFD":A$(1,2) 

":A$(1,3)“"" 

290 A$(2,1)■"V805L2F.E.D.L4DR4R8": 
A$(2,2)“"V8R405L16DR16DR16DR16DR16 
R405L16C+R16C+R16C+R16C+R16R404L4A 
FDR4R8":A$(2,3)-"V8R404L16G+R16G+R 
16G+R16G+R2.R2" 

300 A$(3,1)-"V804L8AB-AG+A05DFAR8R 
4R804L8ABAG+A05DFAR8R4R804L8A" 

310 A$(3,2)“"V6R804L8DDDDDDD-D-D-D 
-D-D-CCCCCC03BBBBBB":A$(3,3) -"" 

320 A$(4,1)-"V804L8B-AG+A05DEFDC+D 
EFAGF+GAGL4DR4R8L8D" 

330 A$(4,2)-"V604L8FFFFFFAAAAAAB-B 
-B-B-B--B-L4B-R4R805L8F" 

340 A$(4,3)-"V604L8DDDDDDFFFFFFGGG 
GGGL4GR4R8R8" 

350 A$(5,1) ■"V805L8DC04B05CDCEDC04 
B-AGL2B-L8AR8" 

340 A$(4,3)-"V604L8DDDDDDFFFFFFGGG 
GGGL4GR4R8R8" 


* PETITE * 

* BOUTIQUE * 

* * 
***************************** 


SYNTAXEN 

1988 


350 A$(5,1)-"V805L8DC04B05CDCEDC04 
B-AGL2B-L8AR8" 

360 A$(5,2)="V605L8FED+EFEGFEDC04B 
-05L2DL8CR8":A$(5,3)="" 

370 A$(6,1)-"V8R4R4R804L8AB-AG+AB- 
A05C+04B-AGFEL2GL8FR8" 

380 A$(6,2)-"V604L4AB-05L8CCDC+04B 
05CDCEDC+04B-AGL2B-L8AR8":A$(6,3) - 

H II 

390 A$(7,1)="V8R405L16DR16DR16DR16 
DR16L8EDC+DEDFR8L16DR16DR16DR16DR1 
6L8EDC+DEDFR8L16DR16DR16DR16DR16" 
400 A$(7,2)“"V6R4R16R16R16R16R16R1 
6R16R1604L8B-B-B-B-B-B-B-R8R16R16R 
16R16R16R16R16R1604L8AAAAAAAR8R16R 
16R16R16R16R16R16" :A$(7,3) ■="" 

410 A$(8,1)-"V805L8FFFFFFEEEEEEDDD 
DDDL8DR8R8R8R8" 

420 A$(8,2)-"V8R8R804L8G+B05D04BR4 
04L8GA05C+04AR404L16AR16AR16AR16AR 
16AR16R8R8" 

430 A$(8,3) ="V604L8G+G+G+G+G+G+GGG 
GGGR8R8R8R8R8R8R8R8R8R8R8" 

440 FOR 1=3 TO 8:A$(6+1,1)=A$(I,1) 
:A$(6+I,2)=A$(I,2):A$(1+6,3)-A$(I, 
3):NEXT I 

450 A$(15,2)="R8V8R405L16B-R16FR16 
B-R16FR16" 

460 A$(15,3)="R8V8R405L16DR16DR16D 
R16DR16" 

470 A$(15,1)="R8V804L2B-." 

480 A$(16,1)="V804L2A.":A$(16,2)=" 
V805R4L16AR16FR16AR16FR16":A$(16,3 
)=RIGHT$(A$(15,3),25) 

490 A$(17,1)="V805L2C.":A$(17,2)=" 
V806R4L1606CR1605FR1606CR1605FR16" 
:A$(17,3)=A$(16,3) 

500 A$(18,1)="V804L2B-.":A$(18,2)= 
RIGHT$(A$(15,2),25):A$(18,3)=A$(16 
,3) 

510 A$(19,1)="V8L904A05DF04B-05DFC 
DF04B-05DF04A05DF04G05DF":A$(19,2) 
-"V605L9DDDDDDDDDDDDDDDDDD":A$(19, 

3) B ii ii 

520 A$(20,2)="V8R405L16E-R16E-R16E 
-R16E-R16" 

530 A$(20,3)="V8R405L16CR16CR16CR1 
6CR16" 

540 A$(20,1)“"V804L2B-." 

550 A$(21,1)="V804L2A.":A$(21,2)=A 
$(20,2):A$(21,3)=A$(20,3) 

560 A$(22,3)="V805R4L1606CR1605GR1 
606CR1605GR16" 

560 A$(22,3)="V805R4L1606CR1605GR1 
606CR1605GR16" 
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570 A$(22,1)»"V805L2C.":A$(22,2)-A 
$(20,2) 

580 A$(23,1)= "V804L2B .":A$(23,2)=" 
V8R4L1605BR16GR16BR16GR16":A$(23,3 
)=A$(22,3) 

590 A$(24,1)= "V805L2D .":A$(24,2)=" 
V806R4L16DR1605GR1606DR1605GR16 11 : A 
$(24,3)=A$(23,3) 

600 A$(25,1)="V805L2C.":A$(25,2)=A 
$(22,2):A$(25,3)=A$(22,3) 

610 A$(26,1)="V8L904B05E-GCE-GDE-G 
CE-G04B-05E-G04A05E-G":A$(26,2)-"V 
6L905E-E-E-E-E-E-E-E-E-E-E-E-E-E-E 
-E-E-E-":A$(26,3)" 

620 A$(27,1)-"V804L2A.":A$(27,3)»A 
$(16,3):A$(27,2)-"R4V804L16B-R16B- 
R16B-R16B-R16" 

630 A$(28,1)-"V804L2G."s A$(28,2)-A 
$(27,2):A$(28,3)-A$(27,3) 

640 A$(29,1)="V804L2B-.":A$(29,2)= 
RIGHT$(A$(15,2),25):A$(29,3)-RIGHT 
$(A$(15,3),25) 

650 A$(30,1)-"V804L2A.":A$(30,2)-A 
$(16,2):A$(30,3)-A$(16,3) 

660 A$(31,1)-"V805L2C.":A$(31,2)-A 
$(17,2):A$(31,3)-A$(17,3) 

670 A$(32,1)="V804L2B-.":A$(32,2) - 
A$(18,2):A$(32,3)=A$(18,3) 

680 A$(33,1)-"V8L405E-DC+D04BG":A$ 
(33,2)="V5L405GGGFFF":A$(33,3) 

690 A$(34,1)="V805L2E-.L8E-E-E-E-L 
4E-":A$(34,2)="V805L2G.L8GGGGL4F": 
A$(34,3)-"V605L2E-.L8E-GCE-04L4G" 
700 A$(35,1)="V604L4E-FG-L2E-L4E-L 
4DE-FL4DDD":A$(35,2)="V805L4G-G-G- 
L2G-L4G-L4FFFDDD":A$(35,3)-"V805L4 
E-E-E-L204B-L405CL405DDD04L4B-AG" 
710 A$(36,1)-"V604L8FGAB-05C04B-AG 
FE-DC":A$(36,2)-"V805L8E-E-E-E-E-E 
-E-E-E-E-E-E-":A$(36,3)-"V804L8FFF 
FFF05CC04GG AA 11 

720 A$(37,1)-"V805L4D.L8DC04B-L2AR 
8":A$(37,2)-"V804L4B-.R8R8R8R2R8": 
A$(37,3)“"V603L4B-.L8B-B-B-L2AR8" 
730 FOR 1-3 TO 8:A$(35+1,1)-A$(I,1 
):A$(35+1,2)-A$(I,2):A$(35+1,3)-A$ 
(1,3):NEXT I 

740 A$(44,1)-"V805L4F.06L8C05AFL4E 
.L806C05AEL4D.L8DDDL2DL16CR16CR16" 
750 A$(44,2)-"V604L4A.L8AAAL4A.L8A 
AAL4A.L8GFEL2DL16CR16CR16":A$(44,3 

J m H H 

760 A$(45,1)-"V805L4CDEFGA06L4C,L8 
CCCL2C." 

770 A$(45,2)-"V604L4CCCAAAL405C.04 
L8B-GFL2E." 


780 A$(45,3)-"V8R4R4R4R4R4R405L4E. 
L8EEEL2E." 

790 A$(46,1)="V805L8GAB-GEFGECDEC" 
800 A$(46,2)-"V605L8EFGECDEC04EFGE 
":A$(46,3)= n " 

810 A$(47,1)-"V805L2D.D." 

820 A$(47,2)-"V604L2F.E.":A$(47,3) 

ta M II 

830 FOR 1-1 TO 3:A$(48,I)-A$(46,1) 

:NEXT I 

840 A$(49,1)-"V805L4D.04L8AG+A05L2 
C. " 

850 A$(49,2)="V604L4F.L8FFFL2E.":A 
$(49,3) 

860 A$(50,1)-"V805L4F.L806C05AFL4E 
.06L8C05AEL4D.L8DDDL4DL8DL16DR16DR 
16DR16" 

870 A$(50,2)-"V604L4A.L8AAAL4A.L8A 
AAL4A.L8GFEL4DL8DL16DR16L16DR16DR1 

6 " : A$ (50,3) — 11 " 

880 A$(51,1)-"V805L4DE-C+DF+AL2B-. 
L8B-B-B-B-B-B-" 

890 A$ (51,2) ="V604L4F+F+F+F+F+F+L2 
G.L8B-AGAB-05D" 

900 A$(51,3)="V6R4R4R405L4CCCR2.R8 
R8R8R8R8R8" 

910 A$(52,1)-"V805L4DDDD-D-D-CCC" 
920 A$(52,2)-"V805R4L4B-B-R4L4B-B- 
R4L4AA" 

930 A$(52,3)-"V604L4DDDFFFAAA" 

940 A$(53,1)-"V805L8AGFEDC04L4BBBB 
-B-B-AL8AAAAL4AR4R4" 

950 A$(53,2)-"V8R8R8R8R8R8R805R4L4 
GGR4L4GGL4FL8FFFFL4FR4R4" 

960 A$(53,3)-"V6L8CCCCCC04L4DDDEEE 
FL8AF05C04AL405FR4R4" 

970 FOR 1=44 TO 53:A$(10+1,1)=A$(I 
,1):A$(10+I,2)-A$(I,2):A$(10+1,3)- 
A$(I ,3) -.NEXT I 

980 FOR 1=3 TO 8:A$(61+1,1)-A$(I,1 
):A$(61+I,2)=A$(I,2):A$(61+1,3)-A$ 
(1,3):NEXT I 

990 FOR 1=0 TO 69:PLAY ,, XA$(I,1);" 
,"XA$(1,2);","XA$(1,3);":NEXT I 
1000 IF PLAY(l)—1 THEN 1000 
1010 FOR 1=0 TO 100:NEXT I:COLOR 2 
,1,8:IF INKEY$=" " THEN 1020 ELSE 
1010 

1020 SCREEN 0:COLOR 2,1,1 
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Gunsmoke ~ (Capeom) Det vilde vesten 
er blevet endnu vildere, som sherif 
kan du kun stole på diq selv, oq 
skyde band i terne før di rør siq; i 
westernbyen, ved jernbanen, i bjerg- 
slugten og på floden de er'al le 
vegne 144,- 

Brnx Simulator - (Code Masters) Fuld fart 
frem gennem qrusbanen, kør din mod¬ 
stander i sænk inden han gør det mod 
dig, 1/2 spillere ~ 38.- 

Danger Mause In Black Forest Chateau - 
(Alternative) menu-styret adventure m. 
grafik, i to dele 38.- 

Hoie in One Professionel - (HAL) bedste 
golf. 2 baner m. hver 18 huller + lav 
egne baner, i/2 spillere 277.- 

Hole in One Special - (HAL) MSX2, 2 sæt 

18 huls baner, 18 golfkøller, 3 spil. 

typer for 1/2 spillere, 1281" 295.- 

Elite - (Firebird) det store inter qalac- 
tiske r-umeventyr i 3D vektor-grafit, 
naviger og land pa nye planeter, bekæmp 
rumpirater som vil give diq et rygte 
som toppen af eliten, en fin blanding 
af action oq straten i. fyldig bag- 
g r u n d s h istor i e og i. h s t r u k t i o h e r 

k a s s e 11 e 215 : - ri i s k 24 9. - 

International Karate - (Endurance Games) 
karate hele jorden rundt, for 1/2 spil¬ 
lere ’ ’ 68.- 

Co 1osus Chess 4.0 - (CDS) bedste skak, 
3D/2.D synsvinkel, fortryd træk, demo- 
spil, opstil brikker, replay, variabel 
sværhedqrad, den ciygt iqeste' computer 
modstander (ratinq" LÆO+ELOl , prnqram, 
snge 1 sk tekst, ho 11 andsk instruk. 1.44, -■ 

Tetris - (Mirrorsoft) Ikke helt som andre 
pusl esp i I, brikkerne kommer flyvende, 

du skal være hurtig men tab ikke over. 

fa 1 i k k et, f æ n g s 1 e n d i og an d e r \ & d e s 6 8 „ -■ 

Spitfire 40 . (Mirrorsoft) flysimulator« 

flyv 2. verdenskrigs mest kendte jager¬ 
fly, take off, landing, nedkæmp fjenden 
i lutt: duel ' 68.- 


R e ri Ligh t o f A rn s t e r d a rn - (A a c k o s o f t) 
strippoker med flotte video digitali¬ 
serede billeder, for HBX2 computere 

kassette 78,- 

World Games - (Epyx) rejs kloden rundt 
for at dyste i S specielle sportsgrene 
- vægt løftning, t.ørtdespr inq på skøjter, 
udspring fra klipper, slalom, tømmer 
rulning, tyrer idninq rodeo, tømmer 
kastning og sumobrySninq -sportsspil 
f-ra Epyx med stor variation 144. ~ 

Basket Master - (l'magine) Bliv på tæerne 
mens du dribler bolden ned af banen med 
modstanderen lige i hælende, med en ro¬ 
lig hånd og et sikkert øjemal kast bol¬ 
den mod kurven. Forsvar din zone, tack¬ 
le modstanderen, følg tiden, løb, 
spring og dunk bolden gennem nettet., st| 
dine bevægelser i slow • rnot i on gen¬ 
tagelse. For 1/2 pers. ” 128.- 

Match Day II - (Ocean) fodbold for 1/2 
spillere eller 2 spil. mod computeren, 
m. variabel skudstryke, heading, spil"' 
tn kamp eller en hel cup ‘ ' i 28. . 

Head over Heels - (Ocean) Hr. Head og Mr» 
Befris er tilsammen en mesterspion med 
de utroi iqeste egenskaber, men først rnå 


de finde hinanden i det store slot, 
flot 31) grafik, arc.adv, ' 68,- 

Ihe MbX Red Book - (Kumaj! giver alle op¬ 
lysninger om MSX:S interne opbygn inq, et 
'"rnust" for alle maskinkode Icetlére 1 48 . - 

5 - 2 S' ’ n e; .s t r a 1 ti i s 1:, 2 s i. d e i:, 2 0 s i: fe* ;U 0 „ - 

3 „ 5 " n e u t, r a 1 d i s k , 2 s :t d e i:, 10 s t, k , i 4 0 „ - ■ 


3 i • 1 i r ■ 1 1 ri 

i ■ or t; r y i-: t s j i, p r i s æ n d Vi) i g s r o g 
varer, Al o i forud¬ 

betaling med check/giro. Bestillinger 
under kr„ IGO,-' t: i. 1.1 ægges don kr„ 20.. 


Ring på vores nys tlfnr.01 22 26 34 mel iem 
16-20 mandag til. lørdag, celler send check 
eller en giro pa gifmir. 343 96 32 med 
dine bestillinger. Oplys evt. telefonnr, 

D A 7 A C R A F T 
kl. J. F j o r d s a Ile 2 0 
D K -1957 F i" e d e r i k s b e r q f: 
tlf. 01 222634 









